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r 

" File: CONTEXT.C 



' This module determines the correct context for spoken utterances to 
' be executed in. 

r 

' Public functions: ContextNewLang 
ContextCheck 
ContextListAdd 
ContextListSelect 

Exported functions: ContextEnumProc 

Private functions: ContextListlnit 
ContextAdd 
HasKey 

ContextAddAccel 
ContextAddMenu 
GetActiveLang 
AddLang 

AddLngCommands 

AddScrollBarCommands 

ContextAddScrollBars 

ContextAddWindSysCom 

ContextAddPMGroup 

ContextAddWind 

ContextAddPopupMenu 

StringGetSysChar 

ContextPakWind 

ContextPakMenu 

ContextPakSysCom 

ContextPakScroll 

ContextPakWindDebug 

ContextPakOebug 

ContextPak 



V 



#define WIN31 // need this to use extended 3.1 functionality 

#inciude <windows.h> 

#include <toolhelp.h> 

#indude "vtool$.h" 
#include "vc.h" 



#ifdef DEBUG_DLG 
int ContextTabs(3]; 
#endif 

r . 

I 

| How is one window related to another. 

I 



•/ 

enum 

{ 



CW HASFOCUS = 1, 
CW_PARENTLEVEL = 2, 



| Description for item in context list. 
I 

7 

typedef struct tagCONTEXTITEM 
{ 



enum 
{ 

CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON. 
} conType; 

int i Level; 
HWND hwnd; 



// What type of context info is it. 



WIND, 
ICON, 
SYSCOM. 
SCROLL. 
MENUPOPUP, 
MENU, 
ACCEL, 
LAUNCH, 
MACRO, 



// It is a window or a control. 
// An iconized window. 

// It is a universal window control, min/max/sys 
Scrolling commands. 
// A menu bar item that will popup. 
A menu item in the active menu. 
A short cut key. 
Executable item. 



// 

// 
// 
// 



// The window group/probability level. 
// Handle to the window associated. 



union 
{ 



struct 
{ 



enum 
{ 



// Is it a class we know about 
CWC STATIC, 
CWC_BUTTON, 
CWC LISTBOX. 
CWC_COMBOBOX, 
CWC EDIT, 
CWC SCROLLBAR, 
CWC PMGROUP. 
CWC~MDICLIENT, 
CWC CHILD, 
CWC_GROUPBOX, 
CWC.POPUP. 

} cwc; 

BOOL bFortist; 
LPSTR szName; 
} Window; 



// Other child 

// Special case 
// Other popup 



int SysCom; 



// System command id. 



int ScrlCom; 



// Scroll Interfase 



• struct 

{ 

HMENU hMenu: 
int iEntry; 

int iKeyPos; // How far down is it not counting separators 
} MenuPop; 

struct 
{ 

HMENU hMenu; // Handle of the menu 

WORD id; // Item ID 

LPSTR szName: // Alias name from Lang 

} Menu; 



struct 
{ 

HMENU hMenu; 

WORD id; // Item ID 

} Acc; 



struct 
{ 

PSTR szTitle; // Title 

PSTR szFile; // Command string 

} PMItem; // PMItem string for CON_LAUNCH 



LPMACRO pMacro; // Macro from language 

}u; 

struct tagCONTEXTITEM * pciNext; // Next item in the list. 
} CONTEXTITEM; 

/* 

I 

| Scroll bar types. 

I 

V 

#define SCRLS HORZ (0x8000) 
#define SCRLS WIN (0x4000) 
#define SCRLS MDI (0x2000) 

#define SCRLS.ACT (-(SCRLS.HORZ | SCRLS.WIN | SCRLS.MDI)) 

r- 

I 

I Scroll present mask 



#define SCRLM HORZ (0x0001) // Is horz scroll present 

#define SCRLM VERT (0x0002) // Is vert scroll present 

#define SCRLM HMDI (0x0004) // Is MDI Workspace scroll present 
#define SCRLM VMDI (0x0008) 



• 



I Context List. 

I 

V 

.LOCAL CONTEXTITEM * pciFirst = NULL; 
_LOCAL CONTEXTITEM • pciLast = NULL; 

_LOCAL unsigned iCheckSum = (UINT)-1 ; 

LOCAL 
LOCAL 
LOCAL 
.LOCAL 

LOCAL 
LOCAL 
.LOCAL 

.LOCAL FARPROC IpprocContext = NULL; 



// Keep a check sum of the context. 



HWND hwndFocus = NULL; // Focus window 

HWNO hwndActive = NULL; // Active window 

HWND hwndParent; // Current parent interogated. 

HWND hwndPrvParent; // This was the previous parent. 

int iCaptionLen; // The longest context caption length, 
int iDebugCapLen; 

int iGroupLevel; // The context group number. 



.LOCAL char szCaptionBuf[2 * MAX.SYMBOL.LENGTH + 50]; // Caption buffer. 
.LOCAL LPLANG pLangCur = NULL; 

r 

I 

| These are switches 

I 

*/ 

.LOCAL BOOL bChildSysMenu; // Child sys commands used ? 
.LOCAL HWND hwndMenuSysPop; // Is the sys menu popped up ? 
.LOCAL BOOL bMenuBarExist; 

.LOCAL BOOL bMenuPopExist; // Is there a popup menu active. 
.LOCAL int iScrollMask; // Is scroll present mask. 

/* 

I 

| These are predefined classes. 

I 

•/ 

LOCAL PSTR szPredefClassQ = 

{ 

"Static", 

"Button*, 

"ListBox", 

"ComboBox", 

"Edit", 

"ScrollBar", 

"PMGroup", // Program manager groups. 

"MDICIient". 

}; 

r- 

I 

| FUNCTION LOCAL void ContextListlnit(void) 



I DESCRIPTION Clear the previous context list. 

I 

I PARAMETERS None. 

I 

| RETURN None. 



*/ 

_LOCAL void ContextListlnit(void) 
{ 

/• Delete old context list 



while (pciFirst != NULL) 
{ 

pciLast = pciFirst->pciNext; 

if (pciFirst->conType == CON LAUNCH) 

{ 

r We allocate these string 

7 

StringNearDestroy(pciFirst->u.PMItem.szTitle); 
StringNearDestroy(pciFirst->u.PMItem.szFile); 

} 

Nfree(pciFirst); 
pciFirst = pciLast; 



/* Reset the checking environment. 

7 

iCheckSum = 0; 

/* Leave 0 for the lang overrides. 
7 

iGroupLevel = 1 ; 

/* A pop up menu is on top. 

7 

hwndMenuSysPop = NULL; 

/* The menu bar has been read ? 

7 

bMenuBarExist = FALSE; 

r Child sys commands used ? 
7 

bChikJSysMenu = FALSE; 

r No scroll commands yet 

7 

iScrollMask = 0; 



| FUNCTION LOCAL BOOL ContextAdd(hwnd, conType) 

I 

| DESCRIPTION Add an item of context info to the list. 



7 



A*- 




Filling in the union feilds is up to the caller. 

PARAMETERS HWND hwnd - Specifies handle to the window we are looking at. 
int conType - 

RETURN TRUE if success 



J.OCAL BOOL ContextAdd(HWND hwnd. int conType) 
{ 

CONTEXTITEM * pci; 
int c; 

if (pcilast '= NULL) 
{ 

/* Checksum the previous. 
*/ 

for (c = 0; c < sizeof(CONTEXTITEM); c ++) 
{ 

iCheckSum += ((PSTR) pciLast)(c]; 

} 

} 

/* Must have a window ? 

7 

if (hwnd == NULL) 

retum(FALSE); 

/* Allocate struct 
•/ 

pci = (CONTEXTITEM*) Nmalloc(sizeof(CONTEXTITEM)); 
if (pci == NULL) 

retum(FALSE); 

/* Set basic vans 
7 

pci->conType = conType; 
pci->i Level = iGroupLevel; 
pci->hwnd = hwnd; 

/* Insert it after the pciLast. 
•/ 

if (pciFirst == NULL || pciLast == NULL) 
{ 

/•At the start. 

V 

pci->pciNext - pciFirst; 

/* save top. 
•/ 

pciFirst = pci; 

} 

else 
{ 

/* Insert after pciLast. 

7 




pci->pciNext = pciLast->pdNext: 



r Add to end. 
•/ 

pcilast->pciNext = pci; 

} 

/* The current pointer. 
7 

pci Last = pci; 

/* Return true so we continue enumerating. 
•/ 

return(TRUE); 

} 

/*- 

| FUNCTION _LOCAL BOOL HasKey(hMenu. iPos) 

| DESCRIPTION Check if the given menu has accelerator key. 

| We check only \i, \a, or \b presents in the string 



| PARAMETERS HWND hMenu - Specifies handle to the given menu. 
| int iPos - specifies posititon in the menu 

| RETURN 

7 

LOCAL BOOL HasKey(HMENU hMenu, int iPos) 

{ 

int i; 

if(! GetMenuString(hMenu, iPos, szCaptionBuf, sizeof(szCaptionBuf) - 1, 
MF_BYPOSITION)) 

{ 

/* No text at all 

V 

retum(FALSE); 

} 

for 0 = 0; i < Istrlen(szCaptionBuf) - 1; i ++) 
{ 

if (szCaptionBuffl] == "M" II // For Windows Apps 
szCaptionBuf[i] == "\a' || 

szCaptionBuflij == "M) 1 ) // For Microsoft Apps 

{ 

r Has TAB or ... 
•/ 

retumfTRUE); 

} 

} 

retum(FALSE); 

} 



FUNCTION _LOCAL void ContextAddAccel(HWND hwnd, HMENU hMenu) 

DESCRIPTION Add the menu options to the context list. 

PARAMETERS HWND hwnd - Specifies handle to the window we are looking at. 
HWND hMenu - Specifies handle to the given menu. 

RETURN None. 



_LOCAL void ContextAddAccel(HWND hwnd, HMENU hMenu) 
{ 

int iPos; 
int items; 
WORD State; 

if (hMenu == NULL) 
{ 

/* No menu 
•/ 

return; 

} 

/* For all items 

V 

items = GetMenultemCount(hMenu); 
for (iPos = 0; iPos < items; iPos ♦+) 
{ 

State = GetMenuState(hMenu, iPos, MF BYPOSITION); 
if (State ==-1) 
break; 

if (State & MF POPUP) 
{ 

/* Check submenu 
*/ 

ContextAddAccel(hwnd, GetSubMenu(hMenu, iPos)); 

} 

else if (! (State & (MF DISABLED I MF GRAYED | MF BITMAP | 
M F_0 WNERDRAW))) 
{ 

if (HasKey(hMenu, iPos)) 
{ 

r Add accelerator now 
•/ 

if (! ContextAdd(hwnd, CON.ACCEL)) 
return; 

pciLast->u.Acc.hMenu = hMenu; 

I* We use position as an ID 
*/ 

pciLast->u.Acc.id = GetMenultemlD(hMenu, iPos); 

} 

} 



} 

) 

/• 



FUNCTION _LOCAL BOOL ContextAddMenu(HWND hwnd, HMENU hMenu) 

DESCRIPTION Add the menu options to the context list. 

PARAMETERS HWND hwnd • Specifies handle to the window we are looking at. 
HWND hMenu • Specifies handle to the given menu. 

RETURN None. 

•/ 

.LOCAL BOOL ContextAddMenu(HWND hwnd. HMENU hMenu) 
{ 

int i; 

int items; 
WORD State; 
int numseparators; 

if (hMenu == NULL) 
{ 

/* No menu 
"/ 

retum(FALSE); 

} 

/* For all items 

7 

items = GetMenultemCount(hMenu); 
numseparators = 0; 
for (i = 0; i < items; i +♦) 
{ 

State = GetMenuState(hMenu, i, MF_BYPOSITION); 
if (State == -1) 
break; 

if (! ContextAdd(hwnd, (State & MF POPUP) ? CON MENUPOPUP 

CON_MENU)) 

retum(FALSE); 

r Popups return different values 
V 

if (!(State & MF POPUP)) 
{ 

r Skip separator 
•/ 

if (State & MF_SEPARATOR) 
numseparators-*"*-; 

} 

if (pciLast->conType == CON MENUPOPUP) 
{ 

r Store the entry number. 



•/ 

pciLast->u.MenuPop.iEntry = i; 
pciLast->u.MenuPop.iKeyPos = i - numseparators; 
pciLast->u.MenuPop.hMenu = hMenu; 

} 

else 
{ 

/* Store ID. 

V 

pciLast->u.Menu.id = GetMenultemlD(hMenu, i); 
pciLast->u.Menu.hMenu = hMenu; 

} 



FUNCTION void ContextNewLang(pLangEdit) 



PARAMETERS LPLANG pLangEdit • Specifies pointer to the new language. 
RETURN None. 



•/ 

void ContextNewLang(LPLANG pLangEdit) 
{ 

char szFile[MAXFILENAME + 1]; 



/' Destroy old language if present 
•/ 

LangChainDestroy(pLangCur); 

if (pLangEdit == NULL) 
{ 

/* Try to open users language 

v 

IniGetUserFile(szFile); 
lstrcat(szFile, " LNG"); 
pLangCur = LangLoad(szFile); 

} 

else 

{ 

I* Try to copy from editor 
V 

pLangCur = LangChainMake(pLangEdit); 

} 

if (pLangCur == NULL) 
{ 

r Try to open default language 
•/ 

IniGetLangFile(szFile); 



return(TRUE); 




DESCRIPTION Change macro language. 




pLangCur = LangLoad(szFile); 

} 

} 



FUNCTION _LOCAL LPLANG GetActiveLangO 

DESCRIPTION A new task has been loaded so load new language 
or the default langauge. 

PARAMETERS None. 

RETURN Pointer to the app specific language. 



LOCAL LPLANG GetActiveLangO 



static HWND hwndPrevActive = NULL; 

static LPLANG pActiveLang = NULL; 

HANDLE hTask; 

TASKENTRY te; 

char szFile[MAXFILENAME + 1]; 

/* Active window changed 
•/ 

if (hwndPrevActive != hwndActive) 
{ 

/* Save currently active window for the next call 

7 

hwndPrevActive = hwndActive; 

/* Get task handle 
•/ 

hTask = GetWindowTask(hwndActive); 

if (hTask == NULL) 
{ 

/• No task ?! 
•/ 

pActiveLang = NULL; 

} 

else 
{ 

/* Get module name 
7 

te.dwSize = (DWORD) sizeof(te); 
TaskFindHandle((TASKENTRY FAR •) &te, hTask); 
GetModuleFileName(te.hModule, (LPSTR)szFile, sizeof(szFile) - 1) 

/* Try to find language 
7 

for (pActiveLang = pLangCur->pNext; pActiveLang != NULL; 
pActiveLang = pActiveLang->pNext) 



{ 

if (! lstrcmpi(szFile. pActiveLang->szFile)) 
{ 

/* Here it is 
*/ 

break; 

} 

} 

} 

} 

/* Return pointer to the language or NULL 
•/ 

retum(pActiveLang); 

} 

| FUNCTION .LOCAL void AddLang(pLang, hwnd, szClass, szWndText. bMenuPopExist ) 

I DESCRIPTION Add macro command from the language 

| PARAMETERS LPLANG pLang • Specifies pointer to the language. 
I HWND hwnd - Specifies handle to the window we are looking at. 

j PSTR szClass - Specifies pointer to the class name string. 

I PSTR szWndText • Specifies pointer to the windows title, 

j BOOL bMenuPopExist • TRUE if popup menu on the screen. 

| RETURN None. 

7 

.LOCAL void AddLang(LPLANG pLang. HWND hwnd, PSTR szClass, PSTR szWndText. BOOL 
bMenuPopExist ) 

{ 

LPGROUP pGroup; 
LP MACRO pMacro; 
HWND hwndMacro; 

if (pLang == NULL) 

/* No language selected 
•/ 

return; 

I* Try to find proper group 
*/ 

for (pGroup = pLang->pGroup; pGroup != NULL; pGroup = pGroup->pNext) 
{ 

r Default group 
•/ 

(pGroup->szClass == NULL && szClass == NULL) 
/* Class group 

7 

||(( pGroup->szClass !- NULL && szClass != NULL && ! 
lstrcmp(pGroup->szClass, szClass) 



szWndText))))- 



>pNext) 



) && (pGroup->szWndText == NULL || ! lstrcmp(pGroup->szWndText, 



/* Work with macros if the group has been found 
•/ 

for (pMacro = pGroup->pMacro; pMacro != NULL; pMacro = pMacro- 



{ 



> pa Next) 
entry 

|| pci->conType == CONJCON) 
szBuf, sizeof(szBuf)-l); 
child ID 

GetWindowWord(pci->hwnd, GWWJD) && 
pMacro->szWndClass)) 

have allias yet 

>u.Window.szName == NULL) 
>u.Window.szName = pMacro->szName; 



hwndMacro = hwnd; 
switch (pMacro->cmdType) 
{ 

caseCMO WNDNAME: 

{ 

/* Set allias name for the window 

7 

CONTEXTITEM * pci; 

char szBuf[MAXSTRING + 1]; 

/* Look through the whole list 
7 

for (pci = pciFirst; pci != NULL; pci = pci- 



{ 



r We need CON_WIND or CONJCON 

7 

if (pci->conType == CON_WIND 



{ 



GetClassNameCpci^hwnd, 

/* Compare class name and 
7 

if (pMacro->itemid == 
! lstrcmp(szBuf, 
{ 

/* Window shouldnl 
7 

if (pci- 



{ 



r Set it 

7 

pci- 
break; 



} 

break; 



>pciNext) 

10 
&& 

>u. Menu, id) 
NULL) 

pMacro->szName; 



window to play to it 



descriptor 



case CMD_MENUNAME: 
{ 

/* Set allias name for the menu item 
•/ 

CONTEXTITEM * pci; 

for (pci = pciFirst; pci != NULL; pci = pci- 

{ 

r We need CON_MENU with the same 
*/ 

if (pci->conType == CON_MENU 
pMacro->itemid == pci- 



{ 



/* Item shouldn't have allias yet 
7 

if (pci->u.Menu.szName == 
{ 

r Set it 

7 

pci->u.Menu.szName = 



} 

break; 



break;. 



> 

break; 



} 



case CMD MOUSE : 
case CMD JOURNAL : 
{ 

r For mouse and journal macro we need to find 
7 

CONTEXTITEM * pci; 

char szBuf[MAXSTRING + 1]; 

r Class name of the window is the main 

7 

if (pMacro->szWndClass) 
{ 

hwndMacro = NULL; 

r Look through the whole list 
7 



pci->pciNext) * 
CONJ/VIND) 
and child 10 

>hwnd t szBuf, sizeof(szBuO-l); 
GetWindowWord(pci->hwnd t GWWJD) && 
pMacro->szWndClass)) 

found it 

pci->hwnd; 



for (pci = pciFirst; pci != NULL; pci = 



{ 



if (pci->conType == 



{ 



/• Compare class name 

7 

GetClassName(pci- 
if (pMacro->itemid == 
! lstrcmp(szBuf, 



{ 



/* we have 

7 

hwndMacro = 
break; 



} 



} 

if (hwndMacro == NULL) 
{ 

r No window 

7 

break; 

} 



default; 



menu on the screen 



if (bMenuPopExist) 

/* Can not do anything while popup 

7 

break; 

if (! ContextAdd(hwndMacro, CON_MACRO)) 
r Not enough memory 

7 

return; 

r Add it 

V 

pciLast->u.pMacro = pMacro; 




/* : 

I FUNCTION _LOCAL void AddLngCommands(hwnd, szCiass, szWndText, bMenuPopExist ) 
I DESCRIPTION Add macro command. 

I PARAMETERS HWND hwnd - Specifies handle to the window we are looking at. 
I PSTR szCiass - Specifies pointer to the class name string. 

I PSTR szWndText - Specifies pointer to the windows title. 

I BOOL bMenuPopExist - TRUE if popup menu on the screen. 

I RETURN None. 

7 

.LOCAL void AddLngCommands(HWND hwnd, PSTR szCiass, PSTR szWndText, BOOL 
bMenuPopExist ) 

{ 

if (pLangCur == NULL) 
{ 

/* No language at all 

7 

return; 

} 

/* Application specific language 

7 

AddLang(GetActiveLangO, hwnd, szCiass, szWndText, bMenuPopExist); 

/* Global language 

7 

AddLang(pLangCur, hwnd, szCiass, szWndText, bMenuPopExist); 

} 

I FUNCTION _LOCAL void AddScrollBafCommands(hwnd, ScrollMask, iCheckMask) 
| DESCRIPTION Create scroll bar command. 

j PARAMETERS HWND hwnd - Specifies handle to the window we are looking at. 
| int ScrollMask - Specifies scroll mask, 

j int iCheckMask - Specifies check mask. 

| RETURN None. 

7 

.LOCAL void AddScrollBarCommands(HWND hwnd, int ScrollMask, int iCheckMask) 
{ 

/* Scroll command with this name shouldn't be in the list twice 
7 

if (! (iScrollMask & iCheckMask)) 
{ 

/* This is first one 




V 

iScrollMask |= iCheckMask; 



if (! ContextAdd(hwnd. CON_SCROLL)) 
/* Not enough memory 
7 

return; 

pciLast->u.ScrlCom = SBJ.INEUP | ScrollMask; 

if (! ContextAdd(hwnd, CON.SCROLL)) 
/• Not enough memory 
•7 

return; 

pcil_ast->u.ScrtCom = SBJJNEDOWN | ScrollMask; 

if (! ContextAdd(hwnd, CON_SCROLL)) 
/• Not enough memory 
*/ 

return; 

pcilast->u.ScrlCom = SB.PAGEUP | ScrollMask; 

if (! ContextAdd(hwnd. CON.SCROLL)) 
/* Not enough memory 
7 

return; 

pciLast->u.ScrtCom = SB_PAGEDOWN | ScrollMask; 

} 

} 

| FUNCTION .LOCAL void ContextAddScrollBars(hwnd, Style, cwc) 



DESCRIPTION Add scroll bar commands. 



PARAMETERS HWND hwnd - Specifies handle to the window we are looking at. 
LONG Style • Specifies windows style 
int cwc • Specifies window type. 



| RETURN None. 

7 

LOCAL void ContextAddScrollBars(HWNO hwnd. LONG Style, int cwc) 

{ 

switch (cwc) 
{ 

case CWC MDICLIENT: 

if (Style & WS VSCROLL) 
{ 

AddScrollBarCommands(hwnd, SCRLS.MDI. SCRLM.VMOI); 

} 

if (Style &WS HSCROLL) 
{ 




AddScrollBarCommands(hwnd, SCRLS MDI | SCRLS HORZ, 

SCRLM_HMDI); 

} 

break: 

case CWC SCROLLBAR : 

if (Style & SBS.VERT) 
{ 

AddScrollBarCommands(hwnd, SCRLS WIN, SCRLM VERT); 

} 

else 
{ 

AddScrollBarCommands(hwnd, SCRLS.WIN | SCRLS HORZ, 

SCRLM HORZ); 

} 

break; 

default: 

if (Style & WS VSCROLL) 

{ 

AddScrollBarCommands(hwnd, 0, SCRLM VERT); 

} 

if (Style & WS HSCROLL) 

{ 

AddScrollBarCommands(hwnd, SCRLS_HORZ. 

SCRLM HORZ); 

} 

} 

} 



j FUNCTION _LOCAL void ContextAddWindSysCom(hwnd, Style) 

| DESCRIPTION Add system type commands for the window. 

| PARAMETERS HWND hwnd - Specifies handle to the given window, 
j LONG Style - Specifies windows style 

| RETURN None. 

| NOTE Maximized MOI children are strange. 

| The sys menu/restore is in the main menu of parent. 

| They will not register normal WS.SYSMENU and restore boxes. 

I Microsoft Excel violates even these rules ! 

| It will not set the WS.MAXIMIZE bit ! 

V 

.LOCAL void ContextAddWlndSysCom(HWND hwnd, LONG Style) 

{ if (! (Style & WS_CHILD) || ! (Style & WS_MAXIMIZE)) 

/* Does the window have system command menu ? 
•/ 

if (! (Style & WS.SYSMENU)) 
return; 



} 

else 

{ 

/• Can we get one ? 
*/ 

if (GetSystemMenu(hwnd, FALSE) == NULL) 
return; 

} 

/' Already got sysmenu type stuff ? 
*/ 

if (bChildSysMenu && (Style & WS.CHILD)) 

return; 
bChildSysMenu = TRUE; 

/* Check to see if sys menu is already popped up. 
•/ 

if (hwndMenuSysPop == hwnd) 
/* Already popped. 

V 

return; 

/* Option to pull down the sys menu. 

V 

if (! ContextAdd(hwnd, CON.SYSCOM)) 

return; 
/• The menu itself. 
*/ 

pciLast-> u .SysCom = SC.KEYMENU; 

/* If the window is iconic then the others are not really available. 

** Although they will say they are. 

•/ 

if (Style & WSJCONIC) 
return; 

/* Option to close the window or app 

** This is equiv. to double click on sys menu box. 

*/ 

if (! ContextAdd(hwnd, CON.SYSCOM)) 
return; 

pciLast*>u.SysCom = SC_CLOSE; 

r Get the min/max controls seperatly for now. 
•/ 

if (Style & WS MINIMIZEBOX) 
{ 

if (! ContextAdd(hwnd, CON.SYSCOM)) 
return; 

pciLast->u.SysCom = SC MINIMIZE ; 

} 

/* If the window is maximzed then we need a restore box. 
*/ 

if (Style & WS MAXIMIZEBOX) 

{ 




if (! ContextAddfhwnd, CON_SYSCOM)) 
return; 

pciLast->u.SysCom = (Style & WS MAXIMIZE) ? SC RESTORE 
SC_MAXIMIZE; 
} 

} 

/* 

I FUNCTION _LOCAL void ContextAddPMGroup(hwnd, Style) 

I DESCRIPTION Add content of Program Manager Group 

j PARAMETERS HWND hwnd • Specifies handle to the window we are looking at. 
| LONG Style - Specifies windows style 

| RETURN None. 

*/ 

LOCAL void ContextAddPMGroup(HWNO hwnd, LONG Style) 

{ 

SHELLITEM si; 
BOOL bRet; 

if (Style &WS ICONIC) 

{ 

/* We dont look inside iconic window, user cannot either 
•/ 

return ; 

} 

/* Window text is a group name 
•/ 

GetWindowText(hwnd, szCaptionBuf, sizeof(szCaptionBuf) - 1); 

/* Enumerate PM items inside the group 
*/ 

bRet = ShellGetFirstltemf&VCTalk, szCaptionBuf, &si); 
while (bRet) 

{ 

/* We need command string to execute 
•/ 

if (si.szFile) 
{ 

if (! ContextAdd(hwnd, CON.LAUNCH)) 
r not enough memory 
7 

return; 

I* Title is the name, file is the command string 
7 

pciLast->u.PMItem.szTitle = StringNearMake(si.szTitle); 
pciLast->u.PMItem.szFile = StringNearMake(si.szFile); 

} 

/• Next one ? 
•/ 



. bRet = ShellGetNextltem(&VCTalk, &si); 

} 

} 

/• 

| FUNCTION J.OCAL BOOL ContextAddWind(hwnd, checktype) 
| DESCRIPTION Check the window for useful context info. 

| PARAMETERS HWND hwnd - Specifies handle to the window we are looking at. 
I int checktype - what type are we looking at. CW_* 

| RETURN TRUE if success. 

I NOTE Windows have the attributes of: 

| window handle 

I window caption text, GetWindowTextO 

| parent handle, GetParentO 

| rectangle. GetWindowRectO GetClientRectO 

I child id number. GetDlgCtrllOO 

| Enabled or disabled. IsWindowEnabled(hwnd) 

j Active or Inactive. GetActiveWindowO ? 

I Have focus ? GetFocusO 

j Window Class attributes. WNDCLASS. GetClasslnfo 

| style bit mask. 

j class name. GetClassName ? 

j module handle, Module name GetModuleFileName 

| ? cursor 

j ? icon 

| ? Menu bar resource name. 

| In the future we want to add special controls for known classes. 

j SCROLLBAR = bars may not be sub windows but part of the non client ! 

j BUTTON = none needed but press. 

| STATIC = not needed but may label another control. 

j COMBOBOX = may have scrollbars, pull down, options inside ? 

j EDIT = scroll bars, new or dictated text ? 

| LISTBOX 

j We start from the bottom and work up. but previous parents are special, 
j Donl duplicate the parent of current focus. 

*/ 

LOCAL BOOL ContextAddWind(HWND hwnd, int checktype) 

{ 

LONG Style; 
int cwc; 

int conType = CON WIND; /* default object type. */ 

char szClassfMAXST RING + 1]; 
charszWndTextfMAXSTRING + 1J; 
PREF_FLAGS prefFlags = UserGetFlagsQ; 




if (hwnd == hwndPrvParent) 

r We have already done with this window 
V 

retum(TRUE); 

/* Immediate children only. 
7 

if ((checktype & CW_PARENTLEVEL) && ! (checktype & CW_HASFOCUS)) 

if (hwndParent != GetParent(hwnd)) 
/* Child of inactive window 
7 

retum(TRUE); 

} 

/* Is the window iconized. 
*/ 

Style = GetWindowLong(hwnd, GWL STYLE); 

if (Style & WS ICONIC) 

{ 

conType = CON ICON; 

} 

/* Is the window one of the known classes. 
•/ 

GetClassName(hwnd. szClass, sizeof(szClass) • 1); 

if (Style & WS CHILD) 
{ 

/* check all control classes 
7 

for (cwc = 0; cwc < CWC CHILD; cwc +♦) 
{ 

if (! lstrcmpi(szClass, szPredefClass(cwc))) 
break; 

} 

} 

else 
{ 

/* It's popup 

7 

cwc = CWC POPUP; 

} 

if (cwc == CWC BUTTON && (Style & OxOF) == BS_GROUPBOX) 
{ 

/* GroupBox is a special class 
7 

cwc = CWC GROUPBOX; 

} 

/* Add children ScrollBars Control 
•/ 

if ((prefFlags & PREF Scroll) && cwc == CWC_SCROLLBAR) 
{ 

ContextAddScrollBars(hwnd, Style, cwc); 



} 

/* We must be focus or a parent of the focus to get menus and parts. 
V 

if ((checktype & CW HASFOCUS) && (conType !■ CONJCON)) 
{ 

/* Does the window have a menu bar ? 
*/ 

'f( 

/* Not a child window. 
*/ 

! (Style & WS.CHILD) && 

r Already have a menu, ONLY WANT ONE. 

•/ 

! bMeriuBarExist) 

{ 

/* Get a menu bar if there is one. 
•/ 

if ((prefFlags & PREF_Menu) && ContextAddMenu(hwnd, 

GetMenu(hwnd))) 

{ 

bMenuBarExist = TRUE; 

} 

} 

/• FOR NOW, if a popup menu is active the window is not ??? 
*/ 

if (! bMenuPopExist) 
{ 

/* Add accelerators. 
•/ 

if (bMenuBarExist && (prefFlags & PREF Accel)) 
{ 

ContextAddAccel(hwnd, GetMenu(hwnd)); 

} 

r Add contens of PMGroup 
•/ 

if (checktype == CW HASFOCUS && cwc == CWC.PMGROUP && 
(prefFlags & PREF WndChild)) 
{ 

ContextAddPMGroup(hwnd, Style); 

} 

/• Get system type commands. 
*/ 

if (prefFlags & PREF SysCom) 
{ 

ContextAddWindSysCom(hwnd, Style); 

} 



/* Add scroll commands 
V 

if (prefFlags & PREF Scroll) 
{ 

ContextAddScrollBars(hwnd, Style, cwc)- 

} 

} 

/* Add macro commands 
*/ 

if (prefFlags & PREF_Macro) 
{ 

/* Add non class specific macro commands only for the focus window 
•/ 

if (checktype == CW.HASFOCUS) 
{ 

AddLngCommands(hwnd, NULL, NULL, bMenuPopExist); 

} 

/* Add windows specific macro commands for any active window 
•/ 

GetWindowText(hwnd, szWndText, sizeof(szWndText) - 1); 
AddLngCommands(hwnd, szClass, szWndText, bMenuPopExist); 

} 

} 

/* Add the window itself after its sub parts. 

V 

if (! ContextAdd(hwnd, conType)) 

. retum(FALSE); 
pciLast->u.Window.cwc = cwc; 

/* We need to add window even if a user doesnl whant one 
*/ 

if (! (checktype & CW HASFOCUS) && 

((cwc == CWC.POPUP && ! (prefFlags & PREF WndPopup)) || 
(cwc != CWC POPUP && ! (prefFlags & PREF WndChild)))) 

{ 

r Not valid for phrase list 
•/ 

pciLast->u.Window.bForList = FALSE; 

} 

else 

{ 

/* Valid for phrase list 
•/ 

pciLast->u.Window.bForList = TRUE; 

} 

return(TRUE); 




FUNCTION J.OCAL void ContextAddPopupMenu(void) 
DESCRIPTION Get a popped up or selected menu or menu tree. 
PARAMETERS None. 
RETURN None. 



_LOCAL void ContextAddPopupMenu(void) 

{ 

HMENU hMenu; 
LONG Style; 
HWND hwnd = NULL; 
int iLevel = 0; 

r Start 

7 

bMenuPopExist = FALSE; 

if (HookGet MenuLevelO == -1) 

{ 

/* No menu at all 

7 

return; 

} 

while (1) 
{ 

/* Is there a menu popped up. 
*/ 

hMenu = HookGet_Menu(iLevel ++); 
if (hMenu == NULL) 

/* No menu at all 

•/ 

return; 

/* Get menu from its owner window. 

** Do just once. 

V 

if (hwnd == NULL) 
{ 

bMenuPopExist = TRUE; 

hwnd = HookGet_MenuWndO; 

if (GetWindowTask(hwnd) == GetCurrentTaskO) { 

/* Donl look at Voice control 

V 

return; 

} 

Style = GetWindowLong(hwnd t GWL STYLE); 

} 

r If the popup menu is part of the main menu bar, 
** then mark that we already have it. 
" NOTE: 



** GetMenuO is undefined for WS_CHILD types. 
• 7 

if (! (Style & WS CHILD)) 
{ 

if (hMenu == GetMenu(hwnd)) 

bMenuBarExist = TRUE; 

} 

/* Add menu without accelerators 
•/ 

if (UserGetFlagsO & PREF Menu) 
{ 

if (ContextAddMenu(hwnd, hMenu)) 
{ 

iGroupLevel++; 

} 

} 

/* Is it a system menu 

7 

if (hMenu == GetSystemMenu(hwnd, FALSE)) 
{ 

hwndMenuSysPop = hwnd; 

} 

} 

} 

/* 

| FUNCTION BOOL CALLBACK ContextEnumProc(hwnd, IParam) 

I DESCRIPTION Callback function that receives window handles as 
j a result of a call to the EnumWindows function. 

I PARAMETERS HWND hwnd - Specifies handle of the target window, 
I LONG IParam - What do we do with the data once we have it ? 

j RETURN Return nonzero to continue enumeration. 

7 

BOOL FAR PASCAL ContextEnumProc(HWND hwnd, LONG IParam) 
{ 

return (ContextAddWind(hwnd, (int) IParam)); 

} 

r 

I FUNCTION J.OCAL char StringGetSysChar(String) 

I DESCRIPTION Get underlined symbol fron the menu item. 

| PARAMETERS PSTR String - Specifies menu string. 

| RETURN Underlined symdol. 

7 



_LOCAL char StringGetSysChar(PSTR String) 
{ 

while ('String) 
{ 

if ( # (String++) == '&*) 
{ 

/* We have found & 
7 

break; 

} 

} 

/* Return address of the next one 

V 

return(*String); 

} 

/* 

| FUNCTION _LOCAL int ContextPakWind(hwnd) 

I DESCRIPTION Pak a string description for the window type object. 
| User pciLast to identify the object. 

| PARAMETERS HWND hwnd - Specifies handle to the window we are looking at. 

I RETURN Length of the caption text. 

*/ 

.LOCAL int ContextPakWind(HWND hwnd) 

{ 

int ien; 

/* If window not active then ignore it. 

7 

'f( 

(! IsWindowEnabled(hwnd) 

|| ! IsWindowVisible(hwnd))) r Not really working ??? V 

return(O); 

/* What is its caption text ? 

V 

Ien = GetWindowText(hwnd, szCaptionBuf, sizeof(szCaptionBuf) • 1); 
r 

~ What is its class. 
*/ 

switch (pciLast->u.Window.cwc) 
{ 

caseCWC EDIT: 
caseCWC COMBOBOX: 
caseCWC LISTBOX: 
case CWC.SCROLLBAR: 

/* Edit/Comb/List captions are the current text inside them ? 

•/ 

Ien = 0; 
break; 




• caseCWC GROUPBOX: 
case CWC_STATIC: 

/• ifstatic or group box has & it fable something 
7 

if (! StringGetSysChar(szCaptionBuf)) 
{ 

len = 0; 

} 

break; 

default: 



} 

return(len); 

} 

/• 

| FUNCTION _LOCAL int ContextPakMenu(hMenu, idltem, fuFlags) 

| DESCRIPTION Get an option from a menu. 

| PARAMETERS HMENU hMenu - Specifies handle to the menu. 
| int idltem - Specifies item ID. 

I UINT fuFlags - Specifies item flags. 

| RETURN Length of the caption text. 

| NOTE When sys menus of child windows are popped up: 

| they have a popup menu type with a caption of junk ? 

| The high MF_ values str not valid for MF_POPUP or menu bars. 

| high = the number of entries in the popup. 

7 

.LOCAL int ContextPakMenu(HMENU hMenu, int idltem, UINT fuFlags) 
{ 

WORD State; 
int len = 0; 

if (hMenu == NULL) retum(O); 

State = GetMenuState(hMenu, idltem, fuFlags); 
if (State ==-1)return(0); 

r Is the item available grayed, disabled ? 
** -1 == not exist. 

7 

if ((State & MF_DISABLED ) 

| ((State & MF_G RAYED )) 
return 0; 

if (! (State & MF POPUP)) 
{ 

if ((State & MF_BITMAP) 




|| (State & MF_OWNERDRAW)) 
return 0;; 

} 

/* Get the text description. 
*/ 

len = GetMenuString(hMenu, idltem, szCaptionBuf, sizeof(szCaptionBuO - 1. fuFlags); 
return(len); 

} 

| FUNCTION _LOCAL int ContextPakSysCom(hwnd, iSysCom) 
| DESCRIPTION Create system command string. 

| PARAMETERS HWND hwnd - Specifies handle to the window we are looking at. 
j int iSysCom - SC_... 

| RETURN Length of the caption text. 

7 

LOCAL int ContextPakSysCom(HWND hwnd, int iSysCom) 

{ 

char Str(MAXSTRING + 1]; 
int len = 0; 

switch (iSysCom) 
{ 

caseSC KEYMENU: 
case SCJUOUSEMENU: 

/* We can get other options by pulling down the sys menu. 

•/ 

len = wsprintf( 

szCaptionBuf, 

H %s %s'\ 

(LPSTR)UserGetDefWord((GetWindowLong(hwnd,GWL STYL 
E) & WS CHILD) ? IDW CHILD : IDW_POPUP), 

(LPSTR)UserGetDefWord(IDW.SYSMENU)); 

break; 

case SC CLOSE: /* May be close window or app. 7 

case SC~MINIMIZE: 
case SC MAXIMIZE: 
case SCJRESTORE: 

r List these visible controls seperately. 

V 

default: 

GetMenuString(GetSystemMenu(hwnd, FALSE), iSysCom, Str, 
MAXSTRING, MF.BYCOMMAND); 

len = StringClip(Str); 

if (len) 

{ 

len = wsprintf( 

szCaptionBuf, 



"%s %s". 
(LPSTR)Str, 

(LPSTR)UserGetDefWord((GetWindowLong(hwnd GWL 
.STYLE) & WS.CHILD) ? IDW CHILD : IOW POPUP))- 

} 

} 

return(len); 

} 



FUNCTION .LOCAL int ContextPakScroll(iScrtCom) 
DESCRIPTION Create scroll command string. 
PARAMETERS int iScrtCom - Specifies scroll command. 
RETURN Length of the caption text. 

7 

LOCAL int ContextPakScroll(int iScrlCom) 

{ 

int len; 
int id Word; 

/* First try all type of horizontall scroll 
7 

if (iScrlCom & SCRLS HORZ) 
{ 

switch (pciLast->u.ScrlCom & SCRLS ACT) 
{ 

case SB LINEUP: 
/• line left 
V 

idWord = IDWJJNELEFT ; 
break; 
case SBJJNEDOWN: 
/• line right 
*/ 

idWord = IDWJJNERIGHT; 
break; 
case SB.PAGEUP: 
r page left 
*/ 

idWord = IDW.PAGELEFT; 
break; 
case SB.PAGEDOWN: 
/* page right 
•/ 

idWord = IDW.PAGERIGHT; 
break; 

} 

} 

r Now all type of vertical scroll 



•/ 

LOCAL int ContextPak(void) 

{ 

int len; 

HWND hwnd = pciLast->hwnd; 
*szCaptionBuf = '\0*; 

switch (pciLast->conType) 

{ 

case CONJA/IND: 
case CONJCON: 

/* Does the user want to have window names ? 

7 

if (! pciLast->u.Window.bFortist) 

{ 

len = NULL; 
break; 

} 

/* Does alias name exist ? 
7 

if (pciLast->u.Window.szName) 

{ 

lstrcpy(szCaptionBuf, pciLast->u.Window.szName); 
len = Istrlen(szCaptionBuf); 

} 

r Try to get caption 

7 

else 
{ 

len = ContextPakWind(hwnd); 

} 

break; 

case CON.SYSCOM: 

/* The system command for the window. 

7 

len = ContextPakSysCom(hwnd f pciLast->u.SysCom); 
break; 

case CON_SCROLL: 

len = ContextPakScroll(pciLast->u.Scr1Com); 
break; 

case CONJVIENU: 

/* 5oes alias name exist ? 
7 

if (pciLast->u.Menu.szName) 
{ 

lstrcpy(szCaptionBuf, pciLast->u.Menu.szName); 
len = lstrlen(szCaptionBuO; 

} 

/* Get an item from a popped up menu. 
7 




else { 

len = ContextPakMenu(pciLast->u.Menu.hMenu pciLast- 
>u.Menu.id. MF_B YCOMMAND) ; 

} 

break; 

case CONJ/IENUPOPUP: 

/* Read an item from the menu bar. 
7 

len = ContextPakMenu(pciLast->u.MenuPop.hMenu, pciLast- 
>u.MenuPop.iEntry, MF_BYPOSITIOIM); 

break; 

case CON_ACCEL: 

/* Accelerator has the same text as a menu item (it available thought) 
7 

len = GetMenuString(pciLast*>u.Acc.hMenu, pciLast->u.Acc.id, 

szCaptionBuf, 

sizeof(szCaptionBuf) - 1, MF.BYCOMMAND); 

break; 

case CON_LAUNCH : 
r PM item title 
7 

Istrcpy (szCaptionBuf , pciLast->u . PM Item . szTit le) ; 

len = Istrten(szCaptionBuf); 

break; 

case CON_MACRO: 
/* Macro name 
*/ 

lstrcpy(szCaptionBuf, (pciLast->u.pMacro)->szName); 

len = Isthen(szCaptionBuf); 

break; 

default: retum(O); 

} 

/* Chop out the ampersands (&) and tabs. 

7 

if (len) 

len = StringClip(szCaptionBuf); 

else 

•szCaptionBuf = AO'; 

if (len > iCaptionLen) 

iCaptionLen = len; 

#ifdef DEBUG.DLG 

/* Pack debug info 
7 

if (DebugFlag & DEBUG ContFull) 

{ 

len = ContextPakDebugO; 

if (len > iCaptionLen) iCaptionLen = len; 

} 



#endif 

/* Return length of the string 
7 

retum(len); 




| FUNCTION BOOL ContextCheck(bPrefChange) 

| DESCRIPTION Hook the context window to the status window. 

I PARAMETERS BOOL bPrefChange - Rebuild list anyway 

| RETURN TRUE = A change in the context ? 

I NOTE This is called every so often to check for context changes. 
| Watch for the change in focus thru the hook routines ? 

| Menus donl change the focus ! we must watch messages for them ! 

| When we select an icon the focus = null the active window is icon. 

7 

BOOL ContextCheck(BOOL bPrefChange) 
{ 

int checktype; 
int changetype; 
unsigned PrevCheckSum; 

changetype = HookGet_ChangeO; 

/* Does anything change ? 

7 

if (changetype == HCHANGE.NONE && ! bPrefChange) 
retum(FALSE); 

/* Set up to enumerate the windows. 

7 

if (IpprocContext == NULL) 
{ 

IpprocContext = MakeProclnstance(ContextEnumProc, VChlnst); 

} 

/* First we check context save options (when old focus valid). 
7 

if (GetWindowTask(GetActiveWindowO) == GetCurrentTaskO) 
{ 

if (IsWindow(hwndFocus) && (! Islconic(hwndActive) || hwndActive 

hwndFocus)) 

{ 

/* Context still good for now, but we need to check preferences 

7 



if (! bPrefChange) 
{ 

retum(FALSE); 

} 

} 

else 
{ 

/* We cannot find our active window. 

- Don't look to it. 

7 

hwndFocus = 0; 

} 

} 

else 

{ 

/* Who is active now. 
7 

hwndActive = GetActiveWindowO; 

/* Who has focus right now. 
7 

hwndFocus = GetFocusO; 

r We should start 

7 

if (! hwndFocus) 

hwndFocus = hwndActive; 

} 



r 

** restart the context list. 
7 

PrevCheckSum = iCheckSum; r Save the previous to compare. 7 
ContextListlnitO; 

r 

** Check for a pop up menu active. 
** ALWAYS highest focus priority. 
7 

ContextAddPopupMenuO; 

if (hwndFocus) 
{ 

r 

** Get those windows that are children of the current focus. 

** NOTE: Items in the immediate focus should be on top ! 

** Move up the hierarchy to the modal level or the non WS_CHILD ? 

7 

hwndParent = hwndFocus; 
hwndPrvParent = NULL; 
checktype = 0; 



while (hwndParent != NULL) 




{ 

if (! IsWindowEnabled(hwndParent)) /• The previous was top. •/ 
break; 

if (! Islconic(hwndParent)) 
{ 

EnumChildWindows(hwndParent ( IpprocContext, checktype); 
iGroupLevel +♦; 

} 

r 

** Store the parent level. (May not be a real option.) 
7 

ContextAddWind(hwndParent, CWJHASFOCUS | checktype); 
hwndPrvParent = hwndParent; r Donl duplicate in siblings. 7 
iGroupLevel +♦; 

checktype = CW_PARENTLEVEL; 

r 

** Break after Active window 

7 

if (hwndParent == hwndActive) 

{ 

break; 

} 

r 

** Does it have a parent ? 

7 

hwndParent = GetParent(hwndParent); 

} 

} 

/* 

** Get other applications, except if someone above is system modal. 
** WS_OVERLAPPED and WS_POPUP type windows. 

7 

EnumWindows(lpprocContext, 0); 

ContextAdd(NULL, 0); /* Checksum the last. 7 

retum(PrevCheckSum != iCheckSum || changetype > HCHANGE_POSSIBLE); 

} 



FUNCTION void ContextListAdd(void) 
DESCRIPTION Build a list of siblings and children. 
PARAMETERS None. 
RETURN None. 



*/ 

void ContextListAdd(void) 

{ 

int len; 

int iEntry = 0; 

ContextCheck(FALSE); /* One final check before packing. 7 

iCaptionLen = 13; /* Minimum size. 7 

#ifdef DEBUGJDLG 

iDebugCapLen = 0; 

#endif 

for (pciLast = pciFirst; .pciLast != NULL; pciLast = pciLast->pciNext, iEntry ++) 
{ 

len = ContextPakO; 
if (! len) continue; 

/* Send a message adding the window caption to the list 
** in the dialog. 

7 

if (! PhraseListAdd(szCaptionBuf, iEntry)) break; 

} 

#ifdef DEBUGJ3LG 

/* Set the tabs and columns. 

7 

if (DebugFiag & DEBUG ContFull) 

{ 

ContextTabs(O) = (iCaptionLen + 4) * 10; 
ContextTabs[1) = (iCaptionLen + 12) * 10; 
ContextTabs(2] = iCaptionLen + 16 + iDebugCapLen; 

} 

#endif 

} 

r 

| FUNCTION void ContextListSelect(iEntry) 

| DESCRIPTION The user selected a word from the list. 

| Take some default MACRO action based on the context type 

| PARAMETERS int iEntry - Specifies numer of list item; 

| RETURN None. 

7 

void ContextListSelect(int iEntry) 
{ 

HWND hwnd; 
MACRO macro; 



if (iEntry < 0) return; 

r 

** Find the window in the list. 
7 

for (pciLast = pciFirst; iEntry; iEntry --) 
{ 

if (pciLast == NULL) 

return; r THIS SHOULD NEVER HAPPEN •/ 
pciLast = pciLast->pciNext; 

} 

hwnd = pciLast->hwnd; 

/* We keep focus and it valid. 
7 

if (GetWindowTask(GetActiveWindowO) == GetCurrentTaskO) 
{ 

SetFocus(hwndFocus); 

} 

/* Oefault macros are to be executed on hwnd. 

7 

macro.szWndClass = NULL; 
macro.szDesc = NULL; 
macro. pNext = NULL; 

switch (pciLast->conType) { 

case CON.SYSCOM: 

/* A system command from the system command menu to the window. 

" PostMessage(hwnd, WM SYSCOMMAND, iEntry, NULL); 

7 

macro. cmdType = CMD_SYSTEM; 
macro.Cmd.System.wCmd = pciLast->u.SysCom; 
break; 



case CON.SCROLL: 
r PostMessage 

7 

macro. cmdType = CMD.MESSAGE; 
macro.Cmd.Msg.wMsg = (pcTLast->u.Scr1Com & SCRLS HORZ) ? 
WMJHSCROLL: WM.VSCROLL; 

macro.Cmd.Msg.wParam = pciLast->u.Scr1Com & SCRLS_ACT; 

if (pciLast->u.ScrlCom & SCRLS WIN) 
{ 

macro.Cmd.Msg.lParam = MAKELONG(0, hwnd); 
hwnd = GetParent(hwnd); 

} 

else 

{ 

macro.Cmd.Msg.lParam = OL; 

} 

break; 



# 



case CONJCON: 

/* Restore the iconic window. 
" NOTE: 

** Iconic windows donl get focus, they just activate. 

** Openlcon(hwnd); 

•/ 

macro.cmdType = CMD_SYSTEM; 
macro.Cmd.System.wCmd = SCJRESTORE; 
break; 



case CONJ/VIND: 

if «pciLast->u.Window.cwc ~ CWC.STATIC) || (pciLast- 
>u.Window.cwc == CWC GROUPBOX)) 

{ 

GetWindowText(hwnd, szCaptionBuf, sizeof(szCaptionBuf) - 1); 
macro.cmdType = CMD_KEY; 
macro. Cmd.Key.cKey = (char) 
VkKeyScan(StringGetSysChar(szCaptionBuf)); 

macro.Cmd.Key.AltPressed = (BYTE) 1; 
macro.Cmd.Key.ShiftPressed = (BYTE) 0; 
macro.Cmd.Key.CtriPressed = (BYTE) 0; 

} 

else 
{ 

/• Choose the window as the current window. For top level 

windows this 

** will result in their being activated. For items in dialog boxes 

** this will result in their being selected. 

•/ 

macro.cmdType = CMD SELECT; 

} 

break; 



case CON J/IENUPOPUP: 

r An item on the windows menu bar. 
** Pull down the popup menu. 
*/ 

macro.cmdType = CMD.MENUPOPUP; 
macro.Cmd.MenuPopup.iKeyPos = pciLast->u.MenuPop.iKeyPos; 

if (GetMenu(hwnd) == pciLast->u.MenuPop.hMenu) 
macro.Cmd.MenuPopup.wLevel = 0; 

else 

macro.Cmd.MenuPopup.wLevel = 1; 

break; 



case CON_MENU: 

/* A menu item in the active menu. 
** Execute the menu item. 

- PostMessage(hwnd, WM.COMMAND, iEntry, NULL); 
*/ 



if (hwndMenuSysPop) 

{ 

/* Menu item chosen from system menu. 
•/ 

macro.cmdType = CMD_SYSTEM; 
macro.Cmd.System.wCmd = pciLast->u.Menu.id; 

} 

else 
{ 

/* Menu item chosen from the menu bar. 
7 

macro.cmdType = CMD_MENU; 
macro. Cmd. Menu. id = paLast->u.Menu.id; 

} 

break; 

case CON_ACCEL: 

/* Accelerator key 

7 

macro.cmdType = CMD_MENU; 
macro.Cmd.Menu.id = pciLast->u.Acc.id; 
break; 

case CON.LAUNCH: 
/* Just execute 
7 

macro.cmdType = CMD_LAUNCH; 
macro.szDesc = pciLast->u.PMItem.szFile; 
break; 

case CON_MACRO: 

macro.cmdType = pciLast->u.pMacro->cmdType; 
macro.Cmd = pciLast->u.pMacro->Cmd; 
macro. itemid = pciLast->u.pMacro->itemid; 
macro.szDesc = pciLast->u.pMacro->szDesc; 
break; 

default : 

return; 

} 

VCM_Execute(&macro, hwnd); 



/• 

" File: HOOK.C 



** Module for Hooking Window's queue and tracking relevant messages. 

** Interface functions: HookGet_Change 

** HookGet_Menu 

** HookGet_MenuAtLevel 

** HookGet_MenuLevel 

** HookGetJ/lenuWnd 

" Hooklnstall 

** HookJournalBusy 

** HookFreeJoumal 

** Record 

** Exported functions: HookMain 

** HookGetMsgProc 

** HookSndMsgProc 

** PlayProc 

** RecProc 
** 

** Private functions: HookMenuClear 
** HookMessage 
** PlayNotify 
** RecNotify 



■ / 

#include <windows.h> 
include "vtools.h" 

typedef struct 

{ // Another message type 

DWORD IParam; /* This was backwards before ? */ 

WORD wParam; 
WORD wMsg; 
HWND hWnd; 

} CALLWNDPROC; /* NOTE: Parameters are oposite of LPMSG ? */ 

typedef CALLWNDPROC FAR *LPCALLWNDPROC; 

r — 

I 

I Module local variables. 

I 

v 

HANDLE hlnst; // Instance Handle given in LibMainO 

HHOOK hGetMsgHook; // Handle to the getmessage hook 

HHOOK hSndMsgHook; // Handle to the callwndproc hook 

HHOOK hJournalHook; // Current journal record/playback hook function . 

/* 

I 

| — Variables for Playback — 




*/ 

static LPRECOftD IpJmlList; // Handle to the list of journal events 
static BOOL bJoumalBusy; // Is the DLL busy recording or playing back? 
static DWORD dwInitPlaybackTime; // Initial time of PlaybackO call 
static short sPlaybackSpeed; // Speed given to PlaybackO (0 or -1) 
static DWORD dwPrevMsgTime; // Time of previously played back event 

static HWND hWndNotify; 
static UINT wMsgNotify; 
static UINT wStopKey; 
static UINT wMouRec; 

I 

| — Context manager tracking. 



static int Hook_Change; /* context change type. 7 

static HWND Hook_MenuhWnd; /* The window owning the menu. */ 

static int Hook_MenuLevel; /* The menu stack level. -1=none */ 

static HMENU Hook_MenuSelect; /* Selected item from the current level. */ 

static enum 
{ 

r 

** If we are tracking a multi message operation. 

V 

HT_NONE, /* Watch for nothing. 7 
HT_ACCEL, r Watch for an accelerator key press. 7 
} HookJTrack; 

#define MENUSTACKQTY 6 /* How many sub levels to store. 7 

static HMENU Hook_MenuStack[MENUSTACKQTY]; /* currently active menu. 7 



/* 

| FUNCTION int CALLBACK HookMain(hinst t wDataSeg, wHeapSize, IpszCmdLine) 

| DESCRIPTION Part of the LibMain that belongs to the hook system. 

| PARAMETERS HINSTANCE hinst - Identifies the instance of the DLL 

| WORDwDataSeg * Specifies the value of the data 

| segment (DS) register. 

| WORD wHeapSize - Specifies the size of the heap defined 

| in the module-definition file. 

| LPSTR IpszCmdLine - Points to a null-terminated string 

j specifying command-line information. 

| RETURN 1 if it is successful. Otherwise, it should return 0. 

7 

int CALLBACK HookMain(HINSTANCE hinst, WORD wDataSeg, WORD wHeapSize, LPSTR 

IpszCmdLine) 

{ 



# 



hlnst = hinst; 
bJoumalBusy - FALSE; 
hGetMsgHook = NULL; 
hSndMsgHook = NULL; 

Hook_Change = HCHANGE_NONE; 
Hook MenuLeve! = -1; 
HookJTrack = HTJMONE; 

return (TRUE); 

} 

/* 

| FUNCTION int WINAPI HookGet_Change(void) 
| DESCRIPTION Has part of the context changed. 

| Because looking for changes is not an exact science we know some 

| events are always a change and some are just possible. 

| Keep 2 flags. 

( PARAMETERS None. 

| RETURN Hook change status. 

7 

int WINAPI HookGet_Change(void) 

{ 

int Prev; 

Prev = Hook_Change; 
Hook_Change = HCHANGE_NONE; 

retum(Prev); 

} 

/* 

| FUNCTION HMENU WINAPI HookGet_Menu(Ievei) 

| DESCRIPTION Return the handle to the current popped up menu. 

| PARAMETERS int level - the inverse of the menu stack level. 0=top-most 

| RETURN NULL = no menu is popped up 

7 

HMENU WINAPI HookGet Menu(int level) 
{ 

if (level > Hook.MenuLevel) retum(NULL); 
retum(Hook_MenuStack(Hook MenuLevel - level]); 

} 



r 



I FUNCTION • HMENU WINAPI HookGet_MenuAtLevel(level) 
I DESCRIPTION Return the handle to the menu at the given level. 
| PARAMETERS int level - the menu stack level. 0=top-most 
| RETURN NULL = no menu is popped up. 

7 

HMENU WINAPI HookGet_MenuAtLevel(int level) 
{ 

if (level > Hook.MenuLevel) retum(NULL); 
retum(Hook MenuStack(level)); 

} 

/• . 

| FUNCTION int WINAPI HookGet.MenuLevelO 
I DESCRIPTION Return the menu level. 
| PARAMETERS None. 

I RETURN The menu level : NULL = no menu is popped up. 

7 

int WINAPI HookGet_MenuLevelO 
{ 

return(Hook MenuLevel); 

} 

/• 

| FUNCTION HWND WINAPI HookGet_MenuWnd(void) 

| DESCRIPTION Returns the owner of the popped up window. 
| Only valid if there IS a popped up menu ! 

| PARAMETERS None. 

| RETURN Handle to the window. 

*/ 

HWND WINAPI HookGet MenuWnd(void) 
{ 

retum(Hook MenuhWnd); 

} 

/*- 

I 

| FUNCTION static void HookMenuClear(void) 

I 

| DESCRIPTION Clear menu toggles. 

I 



I PARAMETERS None. 

I 

I RETURN None. 



static void HookMenuClear(void) 

{ 

if (Hook_MenuLevel == -1) return; 

Hook_MenuLevel = -1 ; /• No popup menu. •/ 

Hook.Change |= HCHANGE DEFINATE; 

} 

r 

I FUNCTION static void PASCAL HookMessage(hWnd. wMsg, wParam. IParam) 

j DESCRIPTION Check for common context indication messages. 

j Use command message checker for PostMessage and Send Message 

j because we never really know which will be used. 

| PARAMETERS HWND hWnd - Specifies the handle of the window 

j UINT wMsg - Specifies the message 

I WORD wParam • Specifies 16 bits of additional 

I message-dependent information 

j LONG IParam - Specifies 16 bits of additional 

j message-dependent information 

| RETURN None. 

V 

static void PASCAL HookMessage(HWND hWnd, UINT wMsg, WORD wParam, LONG IParam) 
{ 

switch (wMsg) 
{ 

r 

** Menu level tracking. 

V 

caseWM INITMENU: 
r 

** The bottom level menu is initialized. 
•/ 

Hook_MenuhWnd =hWnd; 
Hook MenuLevel =-1; 
Hook~MenuSelect = NULL; 
Hook Track = HT NONE; 
Hook_Change |= HCHANGEJDEFINATE; 
break; 



caseWM INITMENUPOPUP: 

r 

** The menu will pop up onto the screen. 

** NOTE: The context manager needs this to tell if a menu is up. 



1 




•/ 

if (Hook MenuSelect == wParam) 

{ 

if (Hook Menulevel >= MENUSTACKQTY-1) break- /• 

SORRY •/ 

Hook MenuLevel 

} 

else 

{ 

/* 

- NOTE: 

** Of the Popup is initialized without having selected it 
"* then it is not a normal menu popup ? What do i do ? 

- NOTE: 

*• This works for custom popups. 
*/ 

Hook MenuLevel = 0; /* Don't know where this is from ? 

•/ 

Hook.Track = HT ACCEL; 

} 

Hook.MenuSelect = NULL; 
Hook_MenuStack[Hook MenuLevel] * wParam; 
Hook.Change |= HCHANGE.DEFINATE; 
break; 

case WM.MENUSELECT: 
I* 

- Watch for the pop up menu being removed. 

** or the select being moved. 

** wParam = the item seelcted, (handle if popup) 

** HIWORD(IParam) = our parent. 

•/ 

if (wParam == 0 && IParam == OxFFFFL) 

{ 

HookMenuClearO; 
break; 

} 

if (Hook MenuLevel ==-1) 
{ 

Hook MenuStack(++ Hook MenuLevel] = HIWORD(IParam); 
Hook~Change |= HCH ANGE_DEF I NATE; 

} 

else 

{ 

if (HIWORD(IParam) == Hook.MenuSelect) 

{ 

/* 

- NOTE: 

*" This occurs if the menu select is moved back to the 

parent- 

** But the child is left on the screen ? 

V 

Hook_MenuLevel +♦; I* same as 

last. V 




Hook.Change |= HCHANGE DEFINATE; 

} 

else 
{ 

while (Hook MenuLevel > 0) 

{ 

if (HIWORD(IParam) == 

Hook_MenuStack[Hook_MenuLevel)) 

break; 
Hook_MenuLevel --; 

Hook_Change |= HCHANGE DEFINATE; 

} 

} 

} 

Hook_Track = HT_NONE; 
Hook_MenuSelect = wParam; 
break; 



case WM_SYSCOMMAND: 
/* 

•* Check for the window being maximized, minimized or restored. 
•/ 

switch (wParam) 
{ 

case SC MAXIMIZE : 
case SC MINIMIZE : 
caseSC RESTORE : 

Hook_Change |= HCHANGEJDEFINATE; 

break; 

} 

caseWM COMMAND: 
/* 

** Clear the menu if present. 

— NOTE: Accelerator keys only exit with a WM_COMMAND 
•/ 

if (Hook.Track == HT.ACCEL) 
HookMenuClearO; 

break; 

case WM.ACTIVATEAPP: 
r 

** We are changing applications. 
•/ 

Hook_Change |= HCHANGE_TASK; 
break; 

case WM ACTIVATE: 
/• 

** The window activation is changing, similar to focus. 
•/ 

caseWM SETFOCUS: 
case WM_KILLFOCUS: 
r 



- The focus is changing. 
7 

Hook_Change |= HCHANGE_POSSIBLE; 
break; 

caseWM SETTEXT: 

r 

** Some text is being set to a window or control. 

** Most likely it is a change. 

*/ 

Hook_Change |= HCHANGE_DEFINATE; 
break; 

caseWM SHOWWINDOW: 

Hook_Change |= HCHANGEJ3EF1NATE; 
break; 

case WM.CREATE: 
/* 

** The window is created. 

7 

caseWM PAINT: 
caseWM NCPAINT: 
caseWM NCCALCSIZE: 
case WM CTLCOLOR: 
caseWM ENTERIDLE: 

r 

" NOTE: It could be (Not necesssary) a change. 

7 

Hook.Change |= HCHANGE_POSSIBLE; 
break; 

} 

} 



FUNCTION DWORD CALLBACK HookGetMsgProc(nCode, wParam, IpMsg) 

DESCRIPTION The HookGetMsgProc function is a callback function that 
the system calls whenever the GetMessage function has 
retrieved a message from an application queue. 
The system passes the retrieved message to the callback 
function before passing the 
message to the destination window procedure. 

PARAMETERS int nCode - Specifies whether the callback function 
should process the message or call the 
CallNextHookEx function. If this parameter is 
less than zero, the callback function should 
pass the message to CallNextHookEx without 
further processing. 

WORD wParam - Specifies a NULL value. 

LPMSG IpMsg - Points to an MSG structure that contains 
information about the message. 



I RETURN The callback function should return zero. 

I 

7 

DWORD CALLBACK HookGetMsgProc(int nCode, WORD wParam, LPMSG IpMsg) 
{ 

if (nCode == HC_ACTION) 
{ 

HookMessage(lpMsg->hwnd. lpMsg->message, lpMsg->wParam, ipMsg- 



XParam); 



} 

I'- 



ll (lpMsg->message == WM MOUSEMOVE) 

{ 

IpMsg->wParam &= ~MK MBUTTON; 

} 

} 

return CallNextHookEx(hGetMsgHook, nCode, wParam, (LONG)lpMsg); 



FUNCTION DWORD CALLBACK HookSndMsgProc(nCode t wParam, IpMsg) 
DESCRIPTION Hooks all SendMessage calls. 

PARAMETERS int nCode -Specifies whether the callback function 

should process the message or call the 

CallNextHookEx function. If this parameter 

is less than zero, the callback function 

should pass the message to CallNextHookEx 

without further processing. 
WORD wParam -Specifies whether the message is sent by 

the current task. This parameter is 

nonzeroif the message is sent; 

otherw ise ( it is NULL. 
LPCALLWNDPROC IpMsg -Points to a structure that contains 

details about the message. 

RETURN The callback function should return zero. 

7 

DWORD CALLBACK HookSndMsgProc(int nCode, WORD wParam, LPCALLWNDPROC IpMsg) 
{ 

if (nCode == HC ACTION) 
{ 

HookMessage(lpMsg->hWnd, lpMsg->wMsg, lpMsg->wParam, lpMsg->IParam); 

} 

return CallNextHookEx(hSndMsgHook, nCode, wParam, (LONG)lpMsg); 

} 



FUNCTION void WINAPI Hooklnstall(flnstall) 

DESCRIPTION Set up all neccessary hooking code to view all messages. 

PARAMETERS BOOL flnstall - Specifies install/uninstall toggle. 




I RETURN "None. 



void WINAPI Hooklnstall(BOOL flnstall) 

{ 

if (flnstall) 

{ // Install only if there isn't already a hook installed 
/• 

** Install hook for posted messages. 

7 

if (! hGetMsgHook) 

hGetMsgHook = SetWindowsHookEx(WH_GETMESSAGE. 
(FARPROC)HookGetMsgProc, hlnst, NULL); 

/• 

** Install hook for sent messages. 
7 

if ('hSnd Msg Hook) 

hSndMsgHook = SetWindowsHookEx(WH_CAI_LWNDPROC, 
(FARPROQHookSndMsgProc, hlnst, NULL); 
} 

else 

{ 

UnhookWindowsHookEx(hGetMsgHook); 
UnhookWindowsHookEx(hSndMsgHook); 
hGetMsgHook = NULL; 
hSndMsgHook = NULL; 

} 

} 



j FUNCTION BOOL WINAPI HookJoumalBusy(void) 

| DESCRIPTION Return whether or not the DLL has a journal hook already 
I installed 

| PARAMETERS None. 

| RETURN TRUE if journal busy. 

7 

BOOL WINAPI HookJoumalBusy(void) 
{ 

return bJoumalBusy; // Is journal playback active? 

} 



FUNCTION static void PlayNotify(void) 
DESCRIPTION Notify about end of playyback. 
PARAMETERS None. 



I RETURN None. 

I 

•/ 

static void PlayNotify(void) 
{ 

if (hWndNotify) 

{ 

SendMessage(hWndNotify, wMsgNotify, 0, 0L); 

} 

} 

/* 

| FUNCTION DWORD CALLBACK PlayProc(nCode. wParam, IpMsg) 

| DESCRIPTION The PlayProc function is a callback function that 

| a library can use to insert mouse and keyboard messages into 

I the system message queue. 

| PARAMETERS tnt nCode - Specifies whether the callback function 

| should process the message or call the 

| CallNextHookEx function. If this parameter 

| is less than zero, the callback function 

| should pass the message to CallNextHookEx 

| without further processing. s 

| WORD wParam - Specifies a NULL value. 

| LPEVENTMSG IpMsg - Points to an EVENTMSG structure that 

| represents the message being processed 

| by the callback function. 

| RETURN The callback function should return a value that represents 

| the amount of time, in clock ticks, that the system should 

| wait before processing the message. This value can be computed 

| by calculating the difference between the time members of the 

| current and previous input messages. If the function returns 

| zero, the message is processed immediately. 

*/ 

DWORD CALLBACK PlayProc(int nCode, WORD wParam, LPEVENTMSG IpMsg) 
{ 

DWORD dwRetcode = NULL; 
BOOL bCallNext = TRUE; 
LPRECORD IpList; 

switch (nCode) 
{ 

case HC.SKIP : 

/7see if we are all done playing back 
if (HpJmlList) 
{ 

//OutputDebugStringfHC.SKIP - Next event is NULL so we're all done.\n"); 

UnhookWindowsHookEx(hJoumalHook); 

PlayNotifyO; 

bJoumalBusy = FALSE; 




# • 

// if (IwNumEvents) 

// OutputOebugStringf Played the number of events recorded.^")* 

} 

else { 

// wNumEvents--; 

IpList = lpJmlList->pNext; 
Gfree(lpJmlList); 
IpJrnlList = IpList; 

} 

bCallNext = FALSE; 
break; 



case HC.GETNEXT : 

/7locIc and playback this member of the list. 

if (IpJrnlList) 
{ 

lpMsg->message = !pJmlList->msg. message; 
!pMsg->paramL = lpJmlList->msg.paramL; 
lpMsg->paramH = lpJmlList->msg.paramH; 

switch (sPlaybackSpeed) 

{ 

case-1 : // Full Speed 

lpMsg->time = GetTickCountO; 
dwRetcode = dwInitPlaybackTime - 

GetTickCountO + GetDoubleClickTimeO ♦ 1; 

if ((long)dwRetcode < 0) // if time has gone by 

return 

dwRetcode = 0; 
// 0 for the wait time, 
break; 

default : 

case 0 : // Original Speed 

lpMsg->time = lpJmlList->msg.time ♦ 

dwInitPlaybackTime; 

dwRetcode = lpMsg->time - GetTickCountO; 
if ((signed long)dwRetcode < 0) // if time has 

gone by return 

dwRetcode = 0; 
// 0 for the wait time, 
break; 

} 

} 

bCallNext = FALSE; 
break; 



case HC.SYSMODALON : 

/7a system modal dialog box has appeared. 
// Something bad must have happened. 




// Free all remaining event structures and unhook. 

// Should some sort of error message be displayed to the user when 
// we receive the HC.SYSMODALOFF to say that we stopped playback? 

while (IpJmllist) 
{ 

IpList = lpJmlList->pNext; 
Gfree(lpJmlList); 
IpJrntList = IpList; 

} 

UnhookWindowsHookEx(hJoumalHook); 

PlayNotifyO; 

bJournalBusy = FALSE; 

break; 

default : 

break; 

} 

if (bCallNext) 
{ 

dwRetcode = CallNextHookEx(hJoumalHook, nCode, wParam, (LONG)lpMsg); 

} 

return dwRetcode; 

} 

/* 

| FUNCTION void WINAPI Playback(hWnd, wMsg, sSpeed, IpList) 

| DESCRIPTION Journal Playback Function 

| PARAMETERS HWND hWnd - Specifies handle to the window 

| to send notification to. 

| UINT wMsg - Specifies notification messasge. 

| short sSpeed - Specifies speed of playback. 

| LPRECORD IpList - Specifies pointer to the events list. 

| RETURN None. 

*/ 

void WINAPI Playback(HWNO hWnd, UINT wMsg, short sSpeed. LPRECORD IpList) 
{ 

if (bJournalBusy) 
return; 

if (IpList == NULL) 
return; 

hWndNotify = hWnd; 
wMsgNotify = wMsg; 
bJournalBusy = TRUE; 



* • 

IpJmlUst = IpUst; 
sPlaybackSpeed = sSpeed; 



dwInitPlaybackTime = GetTickCountO; 
dwPrevMsgTime = dwInitPlaybackTime; 

hJoumalHook = SetWindowsHookEx(WH_JOURNALPLAYBACK, (FARPROC)PlayProc, 

hlnst. NULL); 

return; 

} 



/•- 

| FUNCTION void WINAPI HookFreeJoumal(void) 

I DESCRIPTION Release journal hook. 

| PARAMETERS None. 

| RETURN None. 

7 

void WINAPI HookFreeJoumal(void) 
{ 

if (hJoumalHook) 
{ 

UnhookWindowsHookEx(hJoumalHook); 
bJoumalBusy = FALSE; 
hJoumalHook = NULL; 

} 

} 

/• 

| FUNCTION static void RecNotify(void) 
| DESCRIPTION Notify about end of recording. 
| PARAMETERS None. 
| RETURN None. 
7 

static void RecNotify(void) 

{ 

LPRECORD IpList; 
DWORD dwFirstTime; 

// reset the time field in all of these 
if (IpJmlList) 

dwFirstTime = lpJmlList->msg.time; 

IpList = IpJmlUst; 



• 



while (IpList != NULL) 
{ 

lpList->msg.time -= dwFirstTime; 
IpList = lpList->pNext; 

} 

SendMessage(hWndNotify, wMsgNotify, 0 t (LONG)lpJmiList); 

} 

/* 

| FUNCTION DWORD CALLBACK RecProc(nCode, wParam, IParam) 

| DESCRIPTION The RecProc function is a callback function that records 
| messages that the system removes from the system message queue. 

I PARAMETERS int nCode - Specifies whether the callback function 

| should process the message or call the 

| CallNextHookEx function. If this parameter 

I is less than zero, the callback function 

| should pass the message to CallNextHookEx 

j without further processing. 

| WORD wParam - Specifies a NULL value. 

I LONG IParam - Points to an EVENTMSG structure that 

| represents the message being processed 

| by the callback function. 

I RETURN The callback function should return zero. 

*/ 

DWORD CALLBACK RecProc(int nCode, WORD wParam, LONG IParam) 
{ 

static LPRECORD IpPrevList; // Handle to prev recorded event 

static WORD wNumEvents; // ** number of events recorded •* for testing 

static BOOL bPause = FALSE; 

LPRECORD IpUst; 

LPEVENTMSG IpEvent; 

BOOL bCallNext = TRUE; 

DWORD dwRetcode = 0; 

DWORD dwTime; 



switch (nCode) 
{ 

case HCACTION : 
if(bPause) 
{ 

break; 

} 

dwTime » GetTickCountO; 
IpEvent = (LPEVENTMSG) IParam; 

if (lpEvent->message == WM_KEYDOWN && LOBYTE(lpEvent- 
>paramL) == wStopKey) 

{ 




* • 

HookFreeJournalO; 

RecNotifyO; 

break; 

} 

if (lpEvent->message >= WM MOUSEFIRST && lpEvent->message 

WM_MOUSELAST) 

{ 

if (wMouRec == REC MOUIGNORE) 

{ 

break; 

} 

else if (wMouRec == REC MOUCLICK && IpEvent- 
>message — WM MOUSEMOVE) 

{ 

break; 

} 

} 

// Allocate the next member (zeroinit it so hNext field doesnl 

// have to be explicitly set to zero) 

IpList = Gmalloc((DWORD) sizeof (RECORD)); 

if (IpList == NULL) 
{ 

HookFreeJournalO; 

RecNotifyO; 

break; 

} 

// Update the previous member to point to this new one. 
if (IpJrnlList == NULL) 
{ // It's the first one 

wNumEvents = 0; 

IpJrnlList = IpList; 

} 

else 
{ 

lpPrevList->pNext = IpList; 

} 

IpPrevList = IpList; 

// Store the message in the new one 

lpUst->msg = *lpEvent; 
lpList->msg.time = dwTime; 
break; 

case HC SYSMODALON: 
bPause = TRUE; 
break; 

case HC SYSMODALOFF: 
bCallNext = FALSE; 
bPause = FALSE; 
HookFreeJournalO; 
RecNotifyO; 
break; 



# 



* default : 

break; 

} 

if (bCallNext) { 

dwRetcode = CallNextHookEx(hJoumalHook, nCode, wParam, IParam); 
return dwRetcode; 

} 

r 

I FUNCTION void WINAPI Record(hWnd, wMsg, wKey, wMou) 
I DESCRIPTION Journal RecoTd Function 

| PARAMETERS HWND hWnd - Specifies handle to the window 

I to send notification to. 

| UINT wMsg - Specifies notification messasge. 

| UINT wKey - Specifies stop key VK_ value. 

I UINT wMou - Specifies type of mouse events that 

| should be recorded. 

| RETURN None. 

•/ 

void WINAPI Record(HWND hWnd, UlNTwMsg, UINT wKey, UINT wMou) 

{ 

if (bJoumalBusy) 
return; 

hWndNotify = hWnd; 
wMsgNotify = wMsg; 
wStopKey = wKey; 
wMouRec = wMou; 
IpJmlList = NULL; 

hJoumalHook = SetWindowsHookEx(WH JOURNALRECORD. (FARPROC)RecProc, 
hlnst, NULL); 

if (hJoumalHook) 

bJoumalBusy = TRUE; 

} 



•/ 

else • 

{ 

switch (iScrlCom & SCRLS ACT) 
{ 

case SB_LINEUP: 
/* line up 
*/ 

idWord = IDWJ.INEUP; 
break: 
case SBJJNEDOWN: 
/* line down 
•/ 

idWord = IDWJ.INEDOWN; 
br63k - '- 
case SB.PAGEUP: 
/* page up 
•/ 

idWord = IDW_PAGEUP; 
break; 
case SB_PAGEDOWN: 
/* page down 
•/ 

idWord = IDW_PAGEDOWN; 
break; 

} 

} 

/* MDI frame is a spesial case 
*/ 

if (iScrlCom & SCRLS MDI ) 
{ 

I en = wsprintf( 

szCaptionBuf, M %s %s", 
(LPSTR)UserGetDefWord(IDW_MDIFRAME), 
(LPSTR)UserGetDefWord(idWord)); 
} 

else 
{ 

lstrcpy(szCaptionBuf, UserGetOefWord(idWord)); 
len = Istrlen(szCaptionBuf); 

} 

return(len); 

} 

#ifdef OEBUG.DLG 

/*. 

FUNCTION .LOCAL int ContextPakWindDebug(hwnd) 
DESCRIPTION Get debug information for the given window. 
PARAMETERS HWND hwnd - Specifies handle to the window we are looking at. 
RETURN Length of the caption text. 



_LOCAL int ContextPakWindDebug(HWND hwnd) 
{ 

/* Now we can recieve text from EDIT 
*/ 

return((int) SendMessage(hwnd. WM GETTEXT, sizeof(szCaptionBuf) - 1 
(LONG)(LPSTR)szCaptionBuf)); 
} 

/* 

| FUNCTION J.OCAL int ContextPakDebug(void) 

| DESCRIPTION Create debug string. 

| PARAMETERS None. 

| RETURN Length of the caption text. 

•/ 

.LOCAL int ContextPakDebug(void) 

{ 

/* ADD DEBUG INFO TO THE CONTEXT STRING 
*/ 

HWND hwnd = pciLast->hwnd; 
PSTR Str; 

int len = Istrlen(szCaptionBuf); 
int lend; 

if (! len) 
{ 

switch (pciLast->conType) 
{ 

case CON WIND: 
case CONJCON: 

/* Add window debuf info 

•/ 

len = ContextPakWindDebug(hwnd); 
break; 

default: 



} 

if (! len) 
{ 

/* No text for this item 
*/ 

lstrcpy(szCaptionBuf, "<No Caption>"); 
len = istrten(szCaptionBuf); 

} 

} 



/* Move start pointer 
•/ 

Str = szCaptionBuf + len; 

/* Show the handle and the parent handle for the related window 

7 

lend = wsprintf(Str, "\t%1d %04X\t'\ pciLast->iLevel, hwnd); 
Str += lend; 

/* Add debug info to the string. 
7 

switch (pciLast->conType) 

{ 

case CON_WIND: 
case CONJCON: 

/* its a window or a control. 

7 

if (! hwnd) 

/* No associated window ? 
7 

break; 

/* Parent and owner 

7 

lend = wsprintf(Str, "%04X %04X GetParent(hwnd), GetWindow(hwnd, 



GWJDWNER)); 



/* Add the class name to it. 

7 

GetClassName(hwnd, Str+lend, MAXSTRING); 

/* Usefull properties 

7 

if (! IsWindowEnabled(hwnd)) 

lstrcat(Str, " <INACTIVE>"); 
else if (! IsWindowVisible(hwnd)) 

lstrcat(Str, " <INVISIBLE>"); 
else if (IsZoomed(hwnd)) 

lstrcat(Str t - <MAXIMIZED> ,, ); 
else if (Islconic(hwnd)) 

lstrcat(Str ( " <MINIMIZED> H ); 
if (hwnd == GetActiveWindowO) 

lstrcat(Str, H <ACTIVE>"); 
if (hwnd == GetFocusO) 

lstrcat(Str, H <FOCUS>"); 

/* We need to return this 
7 

lend = Istrlen(Str); 
break; 

case CON_SYSCOM: 

/* System commans 
7 

lend = wsprintf(Str, "<SYSTEM COMMAND %d>". pciLast.>u.SysCom); 




break; 



case CON JWENUPOPUP: 

/* Popup menu properties 

7 

lend = wsprintf(Str, "%04x <POPUP MENU %d>", 

GetMenuState(pciLast->u.MenuPop.hMenu t pciLast- 

>u.MenuPop.iEntry t 

MF_BYPOSIT!ON), pciLast->u.MenuPop.iEntry); 

break; 

case CONJWENU: 

/* Menu item properties 
*/ 

lend = wsprintf(Str, "<MENU ITEM %d>'\ pciLast->u.Menu.id); 
break; 

case CON_ACCEL: 

/* Accelerator 

7 

lend = wsprintf(Str, "<ACCELERATOR FOR %d>'\ pciLast->u.Acc.id); 
break; 

case CON_LAUNCH: 

/* ProgMan launch command 
*/ 

lend = wsprintf(Str, ,, <%s>", (LPSTR)(pciLast->u.PMItem.szFile)); 
break; 

case CON_MACRO: 
/* Macro 

7 

lend = wsprintf(Str, M <MACRO>"); 
break; 

} 

/* Calculate maximum length 

7 

if (lend > iDebugCapLen) 

tDebugCapLen = lend; 

retum(len); 



#endif 



FUNCTION J.OCAL int ContextPak(void) 

DESCRIPTION Build a context string for the context block. 
User pciLast to identify the object. 

PARAMETERS None. 

RETURN Length of the caption text. 




/* 

- File: PLAYBACK. C 

** Functions for Macro Execution 
«-* 

** Public functions: MakeHookReady 
VCM_Execute 

** Private Functions : me SingleCommand 
me_Clk 

** me_Key 
** me_String 
** me Execute 



#define W1N31 // need this to use extended 3.1 functionality 

#include <windows.h> 

#include <shellapi.h> 
#include <ctype.h> 

#include "vtools.h" 
#include "vc.h" 

/* Private Function Prototypes 

7 

_LOCAL BOOL me_SingleCommand(LPMACRO f HWND); 
_LOCAL BOOL me_Clk(LPMACRO); 
J-OCAL BOOL me_Key(VCM KEY KeyType); 
_LOCAL BOOL me_String(LPSTR Str); 
_LOCAL BOOL me_Execute(LPSTR Str); 

/* 

| FUNCTION BOOL MakeHookReady(void) 

| DESCRIPTION Wait until we finish playback. 

| PARAMETERS None. 

| RETURN TRUE if success. 

7 

BOOL MakeHookReady(void) 

{ 

MSG msg; 

while (HookJoumalBusyO) 
{ 

if (PeekMessage(&msg f NULL, NULL. NULL, PM_REMOVE)) 
ProcessMessage(msg); 

} 



return TRUE; 

} 

| FUNCTION BOOL VCM_Execute(LPMACRO CmdPtr, HWND hGlobalWnd) 

I DESCRIPTION Processes the command encoded in the input 
I command struture. 

I PARAMETERS LPMACRO CmdRr - Points to an list of MACRO elements. 
I HWNO hGlobalWnd • Default window to send commands to. 

| RETURN TRUE if success. 

*/ 

BOOL VCM_Execute(LPMACRO CmdPtr, HWND hGlobalWnd) 

{ 

WORD wEm 
HWND hLocalWnd; 

/* Check for NULL pointers 
*/ 

if (CmdRr == NULL) 
return 1; 

while (CmdRr != NULL) 
{ 

/* use currently active win 
*/ 

if ((CmdRr->cmdType == CMD KEY) || 

(CmdRr->cmdType == CMD_TEXT) || 
(CmdRr->cmdType == CMD LAUNCH)) 
hLocalWnd = NULL; 

else 

hLocalWnd = hGlobalWnd; 

/* Process a single command 
•/ 

if (wErr = me_SingleCommand(CmdRr, hLocalWnd)) 
return wErr 

/* Get the next command 
•/ 

CmdRr = CmdRr->pNext; 

} 

return TRUE; 

} 



/*. 

| FUNCTION J.OCAL BOOL me_SingleCommand(LPMACRO CmdRr. HWND hWnd) 
| DESCRIPTION Execute single macro command. 



I PARAMETERS LPMACRO CmdPtr - Points to an list of MACRO elements. 
I HWND hGiobalWnd - Default window to send commands to 

i 

I RETURN TRUE if success. 

I 

7 

_LOCAL BOOL me_SingleCommand(LPMACRO CmdPtr, HWND hWnd) 

RECT red; 
POINT pt; 

BOOL bFoundlt; 
HMENU hMenu; 

WORD wTotal, wFlags, i, KeyPos; 
MACRO macro; 

WORD wKeyUp, wKeyDown; 
int i Level; 

/* Was a specific window given or are we to assume that we should use 
** the currently active window? 

7 

if (! h Wnd) 

hWnd = GetActiveWindowO; 

/* Make sure it is a valid window handle 

7 

if (! IsWindow(hWnd)) 
return FALSE; 

/* Was a class specified and if so was there also window text given. 
** Don't allow specification of window text without the window 
** class being given as well. 
7 

/* Determine the type of command and process the command specific action. 
7 

switch (CmdPtr->cmdType) 
{ 

case CMD_MENU : 

/* Verify that the given window has a menu (do I need to bother w/this?) 
7 

if (! (hMenu = GetMenu(hWnd))) 

return FALSE; 
/* Check to make sure selection is available 

7 

i = GetMenuState(hMenu t CmdPtr->Cmd.Menu.id, MF_BYCOMMAND); 
if ((i & MF_DISABLED) || (i & MF.GRAYED) || (i == -1)) 
break; 

/* Clear the menus before the command is sent 

7 

iLevel = HookGet_MenuLevelO; 

while (iLevel- >= 0) 

{ 

PostMessage(hWnd. WM_SYSKEYDOWN ( VK ESCAPE, OL); 
YieldQ; 




} 



PostMessage(hWnd, WM_COMMAND. CmdPtr->Cmd.Menu.id. OL) 
break; 

case CMD.MENUPOPUP : 

/" Verify that the given window has a menu (do. I need to bother w/this?) 

if (!(hMenu = GetMenu(hWnd))) 

return FALSE; 
/* Test to see where the current menu hilighting is. 
V 

hMenu = HookGet_MenuAtLevel(0); 

/* No menu up - Activate the Menu Bar 

V 

if ('hMenu) 

{ 

hMenu = GetMenu(hWnd); 

PostMessage(hWnd, WM SYSCOMMAND, SC KEYMENU 

OL); 

i = CmdPtr->Cmd.MenuPopup.iKeyPos; 
while (i~) 

{ 

PostMessage(hWnd. WM_SYSKEYDOWN , VK RIGHT 

OL); 

YieldO; 

} 

/* Need to check to see if there really is a menu to pop up or 
** if it is a menu item on the menu bar that has no pulldown 

V 

if ((i = GetMenultemlD(hMenu, CmdPtr- 
>Cmd.MenuPopup.iKeyPos)) != -1) 

{ 

iLevel = HookGet_MenuLevel(); 

while (iLevel- >= 0) 

{ 

PostMessage(hWnd. WM_SYSKEYDOWN, 

VK_ESCAPE, OL); 

YieldO; 

} 

PostMessage(hWnd, WM COMMAND, i. OL); 

} 

else 

PostMessage(hWnd. WM SYSKEYDOWN, 

VK DOWN, OL); 

} 

/* It's a cascading popup 

V 

else 

{ 

I* Pop "back" the menus to the correct level 




VK_ESCAPE, OL); 



>Cmd.MenuPopup.wLevel); 



MF_SEPARATOR))) 



wKeyDown, OL); 




while(HookGet_Menu(CmdPtr->Cmd.MenuPopup.wLevel ♦ 1 )) 
PostMessage(hWnd, WM_SYSKEYDOWN, 

YieldO; 

} 

/* Get the current position that is hilighted 
*/ 

hMenu = HookGet_MenuAtLevel(CmdPtr- 
wTotal = GetMenultemCount(hMenu); 

i = 0; 

KeyPos = 0; 

bFoundlt = FALSE; 

while ((i < wTotal) && ! bFoundlt) 

{ 

wFlags = GetMenuState(hMenu, i, MF_BYPOSITION)- 
if (wFlags & MF_HILITE) 
bFoundit = TRUE; 

else 

{ 

if ((wFlags & MF_POPUP) || (!(wFlags & 
KeyPos++; 

i++; 

} 

} 

/* Must take separators into account in position 
7 

i = KeyPos; 

if (CmdPtr->Cmd.MenuPopup.wLevel) 
{ 

wKeyUp = VK UP; 

wKeyDown = VK_DOWN; 

} 

else 
{ 

wKeyUp = VK LEFT; 

wKeyDown = VK RIGHT; 

} 

if (i < (WORD)CmdPtr->Cmd.MenuPopup.iKeyPos) 
{ 

i = CmdPtr->Cmd.MenuPopup.iKeyPos - i; 

while (i-) 

{ 

PostMessage(hWnd, WM_SYSKEYDOWN. 

} 

} 

else 
{ 



if (i > (WORD)CmdPtr->Cmd.MenuPopup.iKeyPos) 

i = i - CmdRr->Cmd.MenuPopup.iKeyPos; 
while 

{ 

PostMessage(hWnd, 

WM_SYSKEYDOWN, wKeyUp, OL); 

} 

} 

} 

PostMessage(hWnd. WM_SYSKEYDOWN, VK_RETURN. OL); 



break; 
case CMD_SYSTEM : 

if ((CmdPtr->Cmd.System.wCmd == SC KEYMENU) || (CmdPtr- 
>Cmd.System.wCmd == SC.MOUSEMENU)) 

{ 

/* Activating the system menu of an iconized window cant be 

done 

** with the normal syscommands and syskeys. 

** Using mouse commands works but it has the unpleasant side 

effect 

- of moving the pointer. Therefore this may not be an 

acceptable 

- solution. 
•/ 

if (GetParent(hWnd)) 

{ 

r This combination seems to work in all cases except 

for activating 

** the system menu of a child window in Excel that is 

not maximized. 

V 

PostMessage(hWnd, WM.SYSCOMMAND, CmdPtr- 

>Cmd.System.wCmd, OL); 

PostMessage(hWnd, WM SYSKEYDOWN, 

VK RETURN, OL); 

} 

else 
{ 

PostMessage(hWnd, WM SYSCOMMAND, 

SC.KEYMENU. OL); 

PostMessage(hWnd, WM.SYSKEYDOWN, 

VK SPACE, OL); 

} 

} 

else 
{ 

i Level = HookGet_MenuLevelO; 

while (iLevel- >= 0) 

{ 



PostMessage(hWnd, WM SYSKEYDOWN 

VK_ESCAPE/OL); 

YieldO; 

} 

PostMessage(hWnd, WM_SYSCOMMAND, CmdPtr- 

>Cmd.System.wCmd, OL); 

} 

break; 

case CMD.MESSAGE : 

/* Just message to post 

7 

PostMessage(hWnd, CmdPtr->Cmd.Msg.wMsg t CmdPtr- 
>Cmd.Msg.wParam ( CmdPtr->Cmd.Msg.!Param); 
break; 

case CMD SELECT : 
{ 

r Bring hWnd to the top and activate it. 
•/ 

POINT pt; 

int i; 

if (GetWindowLong(hWnd, GWL STYLE) & WS CHILD) 
{ 

SetFocus(hWnd); 
GetWindowRect(hWnd t &rect); 

pt.x = rect.left; 
pt.y = rect.top; 
for (i = 0; i < 5; i ++) 
{ 

if (WindowFromPoint(pt) == hWnd) 
break; 

pt.x ++; 
pt.y ++; 

} 

macro.cmdType = CMD_MOUSE; 
macro.pNext = NULL; 
macro.szWndClass = NULL; 
macro.szDesc = NULL; 
macro.Cmd.Mouse.mouType = MOU.LBCLK; 
macro.Cmd.Mouse.bPosType = VCM_MP_SCREEN; 
macro. Cmd.Mouse.wX = pt.x; 
macro.Cmd.Mouse.wY = pt.y; 
macro.Cmd.Mouse.CtrtPressed = 0; 
macro.Cmd.Mouse.ShiftPressed = 0; 
macro.Cmd.Mouse.AltPressed = 0; 

VCM_Execute(&macro, hWnd); 

} 

else 
{ 

BringWindowToTop(hWnd); 




/* Mouse, Keyboard, and Journal Playback commands will all be handled via 
- a Journal Playback Hook. We still need to go through the window 
" checking above to make sure that if the events are to go to a specific 
** window that the window is there. 

7 

case CMDJVIOUSE : 

/* For all mouse commands, convert any client coordinates 
" to screen coordinates before proceeding further. 

7 

if (CmdPtr->Cmd.Mouse.bPosType == VCM MP_CLIENT) 

{ 

pt.x = CmdPtr->Cmd.Mouse.wX; 
pt.y = CmdPtr->Cmd.Mouse.wY; 
ClientToScreen(hWnd, (LPPOINT) &pt); 
CmdPtr->Cmd.Mouse.wX = pt.x; 
CmdPtr->Cmd.Mouse.wY = pt.y; 
/* in case it's used later 
7 

CmdPtr->Cmd.Mouse.bPosType = VCM MP_SCREEN- 

} 



switch (CmdPtr->Cmd.Mouse.mouType) 
{ 

case MOU.MOVE : 

r Do moves need to be done via playback or is this 

OK??? 

7 

SetCursorPos(CmdPtr->Cmd.Mouse.wX, CmdPtr- 

>Cmd.Mouse.wY); 

break; 

/* Is it necessary to set the focus for clicks and double clicks? 
7 

case MOU LBDBLCLK : // Double Clicks 

case MOU_RBDBLCLK : 

case MOU MBDBLCLK : 

case MOU LBCLK : // Single Clicks 

case MOU RBCLK : 

case MOU.MBCLK : 

return (me_Clk(CmdPtr)); 

break; 

} 

break; 



case CMD.KEY : 

r May need more values passed in for the OEM scan code to be set. 
~ Is it necessary to set the focus here before the key is sent? 




- if window is inconized or ALT is pressed then WM SYSKEY 
7 

return (meJ<ey(CmdPtr->Cmd.Key)); 

break; 
case CMD JTEXT : 

return (me_String(CmdPtr->szDesc)); 

break; 
case CMDJJ\UNCH : 

return (me_Execute(CmdPtr->szDesc)); 

break; 



case CMD JOURNAL ; 

::i { 

.1 LPRECORD pFirstRecord; 

!- y LPRECORD pRecord; 

;A[ POINT pt; 

fU if (HookJoumalBusyO) 
i s n return FALSE; 

i;3 /* need to define how the playback list is going to be sent and what 

ry " we are going to do about any timing type problems such as windows 

i 2 ** taking longer to appear than they did in the original recording etc. 

% pFirstRecord = RecordMake(CmdPtr->Cmd.Joumal.pRecord); 

! as ? for (pRecord = pFirstRecord; pRecord != NULL; pRecord = pRecord- 

^ >pNext) 

{ 

if (pRecord->msg.message >= WM_MOUSEFiRST && 
pRecord-> msg. message <= WM MOUSELAST) 

r 

pt.x = pRecord->msg.paramL; 
pt.y = pRecord->msg.paramH; 
ClientToScreen(hWnd, &pt); 
pRecord->msg.paramL = pt.x; 
pRecord->msg.paramH = pt.y; 

} 

} 

Playback(NULL 0. 0, pFirstRecord); 
break; 

} 

default : 

/* error - Unknown Command Type 

7 

return FALSE; 
break; 
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return TRUE; 

} 



#defme MAKEKEY(uVKey) (MAKEWORD(uVKey, MapVirtualKey(uVKey. 0))) 

| FUNCTION .LOCAL BOOL me_Clk(LPMACRO CmdRr) 
I DESCRIPTION Execute mouse macro command. 

| PARAMETERS LPMACRO CmdRr - Points to an list of MACRO elements. 

| RETURN TRUE if success. 

*/ 

LOCAL BOOL me Clk(LPMACRO CmdPtr) 

{ 

LPRECORD IpList, IpHead; 
WORD Down, DownSec, Up; 
WORD time = 0x50; 

BOOL bSysKey = (CmdRr->Cmd.Mouse.AltPressed) && ! (CmdRr- 
>Cmd . Mouse.CtriPressed) ; 
POINT ptCur; 

GetCursorPos(&ptCur); 

/* Mouse coordinates have already been converted to screen coordinates 

v 

switch (CmdRr->Cmd.Mouse.mouType) 

{ 

case MOU_LBCLK : 

Down = WM_LBUTTON DOWN ; 

DownSec = NULL 

Up = WM_LBUTTONUP; 

break; 
caseMOU RBCLK : 

Down = WM_RBUTTONDOWN; 

DownSec = NULL; 

Up = WMJRBUTTONUP; 

break; 
caseMOU MBCLK : 

Down = WM.MBUTTONDOWN; 

DownSec = NULL; 

Up = WM.MBUTTONUP; 

break; 

case MOU.LBDBLCLK : 

Down = WM LBUTTONDOWN; 
DownSec = WM LBUTTONDBLCLK; 
Up = WMJ.BUTTONUP; 
break; 

caseMOU RBDBLCLK : 

Down = WM RBUTTONDOWN; 
DownSec = WM RBUTTONDBLCLK; 
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Up = WM_RBUTTONUP; 
break; 

case MOLLMBDBLCLK : 

Down = WMJWBUTTONDOWN; 
DownSec = WM MBUTTONDBLCLK; 
Up = WM_MBUTTONUP; 
break; 

default: 

return FALSE; 

} 

IpList = Gmalloc((DWORD) sizeof(RECORD)); 
IpHead = IpList; 

if (IpList) 
{ 

lpList->msg. message = WM_MOUSEMOVE; 
lpList->msg.paramL = CmdPtr->Cmd.Mouse.wX; 
lpList->msg.paramH = CmdPtr->Cmd.Mouse.wY; 
lpList->msg.time = time; 
time ♦= 0x50; 

} 

else 

return FALSE; 

if (CmdRr->Cmd.Mouse.AltPressed) 
{ 

lpList->pNext = Gmalloc((DWORD) sizeof(RECORD)); 
if (lpList->pNext) 

{ 

IpList = lpList->pNext; 

lpList->msg. message = WM SYSKEYDOWN; 
lpList->msg.paramL = MAKEKEY(VK_MENU); 
lpList->msg.paramH = 0x1; // repeat count 
lpList->msg.time = time; 
time ♦= 0x50; 

} 

else 

return FALSE; 

} 

if (CmdPtr->Cmd.Mouse.CtrtPressed) 
{ 

lpList->pNext = Gmalloc((DWORD) sizeof(RECORD)); 

if (lpList->pNext) 
{ 

IpList = lpList->pNext; 
lpList->msg.message = WM KEYDOWN; 
lpList->msg.paramL = MAKEKEY(VK_CONTROL); 
lpList->msg.paramH =0x1; // repeal count 
lpList->msg.time = time; 
time += 0x50; 

} 

else 



return FALSE; 

} 

if (CmdRr->Cmd. Mouse. ShiftPressed) 
{ 

lpList->pNext = Gmalloc((DWORD) sizeof (RECORD)); 

if (lpList->pNext) 
{ 

IpList = lpList->pNext; 

lpList->msg. message = bSysKey ? WM SYSKEYDOWN : 

WM_KEYDOWN; 

lpList->msg.paramL = MAKEKEY(VK_SHIFT); 
lpList->msg.paramH =0x1; // repeat" count 
lpList->msg.time = time; 
time ♦= 0x50; 

} 

else 

return FALSE; 

} 

lpList->pNext = Gmailoc((DWORD) sizeof(RECORD)); 

if (lpList->pNext) 
{ 

IpList = lpList->pNex£: 
lpList->msg. message = Down; 
lpList->msg.paramL = CmdRr->Cmd.Mouse.wX; 
lpList->msg.paramH = CmdRr->Cmd.Mouse.wY; 
lpList->msg.time = time; 
time += 0x50; 

} 

else 

return FALSE; 

if (DownSec) 
{ 

lpList->pNext = Gmalloc((DWORD) sizeof (RECORD)); 

if (lpList->pNext) 
{ 

IpList = lpList->pNext; 
lpUst->msg. message = Up; 
lpList->msg.paramL = CmdPtr->Cmd.Mouse.wX; 
lpList->msg.paramH = CmdRr->Cmd.Mouse.wY; 
lpList->msg.time = time; 
time += 0x50; 

} 

else 

return FALSE; 

lpList->plMext = Gmalloc((DWORD) sizeof (RECORD)); 

if (lpList->pNext) 
{ 




IpList = lpList->pNext; 
lpList->msg. message = DownSec; 
lpList->msg.paramL = CmdRr->Cmd.Mouse.wX; 
lpList->msg.paramH = CmdRr->Cmd.Mouse.wY; 
lpList->msg.time = time; 
time += 0x50; 

} 

else 

return FALSE; 

} 

lpList->pNext = Gmalioc((DWORD) sizeof(RECORD)); 

if (lpList->pNext) 
{ 

IpList = lpList->pNext; 
lpList->msg. message = Up; 
lpList->msg.paramL = CmdPtr->Cmd.Mouse.wX; 
lpList->msg.paramH = CmdRr->Cmd.Mouse.wY; 
lpList->msg.time = time; 
time += 0x50; 

} 

else 

return FALSE; 

if (CmdRr->Cmd. Mouse. ShiftPressed) 
{ 

lpList->pNext = Gmalloc((DWORD) sizeof(RECORD)); 

if (lpList->pNext) 
{ 

IpList = lpList->pNext; 

I pList->msg. message = bSysKey ? WM SYSKEYUP : WM KEYUP; 
lpList->msg.paramL = M AKEKE Y(VK_SH I FT) ; 
lpList->msg.paramH = 0x1 ; // repeal count 
lpList->msg.time = time; 
time +- 0x50; 

} 

else 

return FALSE; 

} 

if (CmdRr->Cmd.Mouse.Ctr1Pressed) 
{ 

lpList->pNext = Gmalloc((DWORD) sizeof(RECORD)); 

if (lpList->pNext) 
{ 

IpList = lpList->pNext; 
lpList->msg.message = WM KEYUP; 
lpList->msg.paramL = MAKEKEY(VK_CONTROL) ; 
lpList->msg.paramH =0x1; // repeal count 
lpList->msg.time = time; 
time += 0x50; 

} 

else 



return FALSE; 

} 

if (CmdPtr->Cmd.Mouse.AltPressed) 
{ 

lpList->pNext = Gmalloc((DWORD) sizeof(RECORD)); 

if (lpList->pNext) 
{ 

IpList = tpList->pNext; 

lpList->msg. message = WM_KEYUP; 

lpList->msg.paramL = MAKEKEY(VK_MENU); 

ipList->msg.paramH =0x1; // repeal count 

lpList->msg.time = time; 

time += 0x50; 

} 

else 

return FALSE; 

} 

lpList->pNext = Gmalloc((DWORD) sizeof (RECORD)); 

if (lpList->pNext) 
{ 

IpList = lpList->pNext; 

lpList->msg. message = WM_MOUSEMOVE; 
lpList->msg.paramL = ptCur.x; 
lpList->msg.paramH = ptCur.y; 
lpList->msg.time = time; 
time += 0x50; 

} 

else 

return FALSE; 

if (! MakeHookReadyO) 
return FALSE; 

else 

Playback(NULL 0, -1 t IpHead); 
return TRUE; 



/• 

| FUNCTION J.OCAL BOOL me_Key(KeyType) 

| DESCRIPTION Execute key macro command. 

| PARAMETERS VCM_KEY Key Type - Specifies ke description struct. 

| RETURN TRUE if success. 

•/ 

_LOCALBOOLme Key(VCM KEYKeyType) 

{ 



LPRECORD IpList, IpHead; 
WORD time = 0x50; 

BOOL bSysKey = (KeyType.AltPressed) && ! (KeyType.CtrlPressed); 
POINT ptCur; 

GetCursorPos(AptCur); 

/* Not quite sure why something like a mouse move must be sent 
** before the key down to have the key down be recognized. 
*/ 

IpList = Gmalloc((DWORD) sizeof(RECORD)); 

IpHead = IpList; 

if (IpList) 
{ 

lpList->msg.message = WM.MOUSEMOVE; 
lpList->msg.paramL = ptCur.x; 
lpList->msg.paramH = ptCur.y; 
lpList->msg.time = time; 
time += 0x50; 

} 

else 

return FALSE; 

if (KeyType.AltPressed) 
{ 

lpList->pNext = Gmalloc((DWORD) sizeof(RECORD)); 

if (lpList->pNext) 
{ 

IpList = lpList->pNext; 

lpList->msg.message = WM.SYSKEYDOWN; 
lpList->msg.paramL = MAKEKEY(VK_MENU); 
lpList->msg.paramH = 0x1; // repeat count 
lpList->msg.time = time; 
time += 0x50; 

} 

else 

return FALSE; 

} 

if (KeyType.CtrlPressed) 
{ 

lpList->pNext = Gmalloc((DWORD) sizeof(RECORD)); 

if (lpList->pNext) 
{ 

IpList = lpList->pNext; 
lpList->msg.message = WM KEYDOWN; 
lpList->msg.paramL = MAKEKEY(VK.CONTROL); 
lpList->msg.paramH =0x1; // repeat count 
lpList->msg.time = time; 
time += 0x50; 

} 

else 



return FALSE; 

} 

if (KeyType.ShiftPressed) 
{ 

lpList->pNext = Gmalloc((DWORD) sizeof(RECORD)); 

if (lpList->pNext) 
{ 

IpList = lpList->pNext; 

lpList->msg.message = bSysKey ? WM_SYSKEYDOWN : 

WM_KEYDOWN; 

lpList->msg.paramL = MAKEKEY(VK_SHIFT); 
lpList->msg.paramH =0x1; // repeal count 
lpList->msg.time = time; 
time += 0x50; 

} 

else 

return FALSE; 

} 

if (KeyType.cKey) 
{ 

lpList->pNext = Gmalloc((DWORD) sizeof(RECORD)); 

if (lpList->pNext) 
{ 

IpList = lpList->pNext; 

lpList->msg.message = bSysKey ? WM_SYSKEYDOWN : 

WM.KEYDOWN; 

lpList->msg.paramL = MAKEKEY(KeyType.cKey); 
lpList->msg.paramH = 0x1 ; // repeat count 
lpList->msg.time = time; 
time += 0x50; 

} 

else 

return FALSE; 

lpList->pNext = Gmalloc((DWORD) sizeof(RECORD)); 

if (lptist->pNext) 
{ 

IpList = lpList->pNext; 

lpUst->msg.message = bSysKey ? WM_SYSKEYUP : WM.KEYUP; 
lpList->msg.paramL = MAKEKEY(KeyType.cKey); 
lpList->msg.paramH =0x1; // repeat count 
lpUst->msg.time = time; 
time += 0x50; 

} 

else 

return FALSE; 

} 

if (KeyType.ShiftPressed) 
{ 




. lpList->pNext = Gmalloc((DWORD) sizeof (RECORD)); 

if (lpList->pNext) 
{ 

IpList = lpList->pNext; 

lpList->msg. message = bSysKey ? WM SYSKEYUP : WM KEYUP 
lpList->msg.paramL = M AKEKE Y(VK_SH I FT) ; 
lpList->msg.paramH =0x1; // repeat count 
lpList->msg.time = time; 
time += 0x50; 

} 

else 

return FALSE; 

} 

if (KeyType.CtrtPressed) 

{ 

lpList->pNext = Gmalloc((DWORD) sizeof(RECORD)); 

if (lpList->pNext) 

{ 

IpList = lpList->pNext; 

lpList->msg. message = WM KEYUP; 

lpList->msg.paramL = M AKEKE Y(VK_CONTROL); 

lpList->msg.paramH = 0x1; // repeal count 

lpList->msg.time = time; 

time += 0x50; 

} 

else 

return FALSE; 

} 

if (KeyType.AltPressed) 
{ 

lpList->pNext = Gmalloc((DWORD) sizeof (RECORD)); 

if (lpList->pNext) 
{ 

IpList = lpList->pNext; 
lpList->msg. message = ( 

! (KeyType.cKey) || 

! (KeyType.CtrtPressed) || 

! (KeyType.ShiftPressed) 
) ? WM SYSKEYUP : WM KEYUP; 

lpList->msg.paramL = MAKEKEY(VK_MENU); 
lpList->msg.paramH =0x1; // repeat count 
lpList->msg.time = time; 
time += 0x50; 

} 

else 

return FALSE; 

} 

if (! MakeHookReadyO) 
return FALSE; 

else 



. Playback(NULL, 0, -1 , IpHead); 
return TRUE; 

} 

/* 

| FUNCTION _LOCAL BOOL me_String(LPSTR Str) 
I DESCRIPTION Execute string macro command, 
j PARAMETERS LPSTR Str - Specifies sourse string. 
| RETURN TRUE if success. 
*/ 

LOCAL BOOL me String(LPSTR Str) 

{ 

LPRECORD IpList. IpHead; 
POINT ptCun 
LONG time=0x50; 

if (Str == NULL) 

return FALSE; 

GetCursorPos(&ptCur); 

/* Not quite sure why something like a mouse move must be sent 
** before the key down to have the key down be recognized. 

V 

IpList = Gmalloc((DWORD) sizeof(RECORD)); 
IpHead = IpList; 

if (IpList) 
{ 

lpList->msg.message = WM_MOUSEMOVE; 
lpList->msg.paramL = ptCur.x; 
lpList->msg.paramH = ptCur.y; 
lpList->msg.time = 0x50; 

} 

else 

return FALSE; 



while ("Str != NULL) 
{ 

if (isupper('Str)) 
{ 

lpList->pNext = Gmalloc((DWORO) sizeof(RECORD)); 

if (lpList->pNext) 
{ 

IpList = lpList->pNext; 
lpList->msg.message - WM KEYDOWN; 
lpList->msg.paramL = MAKEKEY(VK SHIFT); 




lpList->msg.paramH = 0x1 ; // repeat count 
lpList->msg.time = time+=0x20; 

} 

else 

return FALSE; 

} 



lpList-> P Next = Gmalloc((DWORD) sizeof(RECORD)); 

if (lpList->pNext) 
{ 

IpList = lpList->pNext; 
lpList->msg.message = WM_KEYDOWN; 
lpList->msg.paramL = MAKEKEY(toupper(*Str)); 
lpList->msg.paramH =0x1; // repeat count 
lpList->msg.time = time+=0x20; 

} 

else 

return FALSE; 

lpList->pNext = Gmalloc((DWORD) sizeof (RECORD)); 

if (lpList->pNext) 
{ 

IpList = lpList->pNext; 
lpList->msg.message = WM_KEYUP; 
IpList-xnsg.paramL = MAKEKEY(toupper(*Str)); 
lpList->msg.paramH = 0x1 ; // repeat count 
lpList->msg.time = time+=0x20; 

} 

else 

return FALSE; 

if (isupper(*Str)) 

{ 

lpList->pNext = Gmalioc((DWORD) sizeof (RECORD)); 

if (lpList->pNext) 
{ 

IpList = lpList->pNext; 
lpList->msg.message = WM KEYUP; 
lpList->msg.paramL = MAKEKEY(VK_SH I FT) ; 
lpList->msg.paramH = 0x1 ; // repeat count 
lpList->msg.time = time+=0x20; 

} 

else 

return FALSE; 

} 

Str++; 



if (! MakeHookReadyO) 
return FALSE; 

else 




Playback(NULL, 0. -1. ipHead); 



return TRUE; 

} 

| FUNCTION _LOCAL BOOL me_Execute(LPSTR Str) 

| DESCRIPTION Execute launch macro command. 

j PARAMETERS LPSTR Str - Specifies command string 

| RETURN TRUE if success. 

•/ 

LOCAL BOOL me Execute(LPSTR Str) 

{ 

char szExec{MAXFILENAME + 1]; 
char * pszParam; 

lstrcpy(szExec, Str); 

for (pszParam = szExec; 'pszParam != '\0' ; pszParam +♦) 
{ 

if CpszParam == ' ") 
{ 

•pszParam = *\0'; 
pszParam ♦+; 
break; 

} 

} 

if (ShellExecute(NULL, NULL. (LPSTR)szExec, (LPSTR)pszParam, NULL, 
SW_SHOWNORMAL) < 32) 
{ 

Error(ERRAppExec, (LPSTR)Str); 
return FALSE; 

} 

return TRUE; 

} 



/* 

** File: STATUS.C 

** This is the windows display interface for the status window. 
** 

** Public functions: StatusSetPref 
** PhraseListAdd 
** Statuslnit 
** StatusCheckMsg 
** StatusGetWindow 

** Exported functions: PhraseTimerProc 
StatusWndProc 

** Private functions: StatusBarPer 

** StatusBarOraw 

** StatusBars 

** StatusChange 

** PhraseFind 

** CloseCallFind 

** PhraseListMove 

" PhraseListlnc 

** PhraseListSetup 

** PhraseDrawltem 

** PhraseExec 

** StartTimer 

** StopTimer 

** SelectOurFont 



#define WIN31 
#include <windows.h> 

#include <memory.h> 
#in elude <stdlib.h> 

#include "vtools.h" 

#inciude "vch" 
#inciude "vcrc.h" 
#incJude "vchelp.h" 



// need this to use extended 3.1 functionality 



/* only files included by vc.rc V 
/* only file included by vchlp.hpj V 



#define PROMPT LEN 14 
#define IDT PHRASE 1 
#define ID LIST PHRASE 4 
#define BMP SIZE 16 



| Menu 

I 

•/ 

enum 
{ 




IDM_PREFS = MENU.STATUS, 

I DM TRAIN, 

I DM EDIT. 

IDM.PAUSE, 

I DM EXIT. 

I DM HELPCONTENT. 
IDM.HELPSEARCH, 
IDM HELPONHELP, 
I DM ABOUT 



/*• 



V 

enum 

{ 

IDS_TITLE = IDS STATUS, 

IDS_DEBUG, 

IDS PAUSE, 

IDS CONFID, 

IDS VOLUME, 

IDS NEW, 

IDS QUERY 

}; 



I 

I System menu additions. NOTE: leave low 4 bits unused ! 



#define IDM_SYSDEBUG (0x01 1 0) 



/* 

I 

I Communucation with Editor 

I 

*/ 

_LOCAL char szFrameClassO = "VoiceEditFrame"; 
.LOCAL UINT iEditChangeMsg = NULL; 

_LOCAL char szStatusClassQ = "VoiceStatus"; 

.LOCAL HWND hwndStatus = NULL; 
.LOCAL HWND hwndUst = NULL; 

.LOCAL HANDLE hAccTableStatus; 

.LOCAL WORD PhraseTimer = NULL; 

.LOCAL int iVolumeMin = 20; 
.LOCAL int iVolumeMax = 80; 

.LOCAL UINT wCloseCalllnc = 0; 



.LOCAL BOOL bCloseCallWas = FALSE; 
.LOCAL UlNTwCloseCallNumber; 
.LOCAL UINT wUttCloseCall = 0; 

LOCAL int iStatusSizeMin; 
.LOCAL BOOL bPause = FALSE; 

.LOCAL HICON hicoMain; 
.LOCAL HICON hicoStat; 

.LOCAL HBITMAP hbmpPaint; 
.LOCAL HBITMAP hbmpAnd; 

.LOCAL HFONT hFontCur = NULL; 
.LOCAL int cxStatusText; 
.LOCAL int cyStatusText; 

.LOCAL RECOGRES vrState; 

| FUNCTION .LOCAL int StatusBarPer(Rect, val) 

| DESCRIPTION Return pixel location of a percentage of the rectangle. 

I PARAMETERS LPRECT Rect - Specifies pointer to the rectangle. 
I int val • Specifies value in persents. 

I RETURN The pixel location of a percentage of the rectangle. 

•/ 

.LOCAL int StatusBarPer(LPRECT Rect, int val) 

{ 

return(Rect->left + (int)((((LONG) val) • ((LONG)(Rect->right - Rect->left))) / 100L)); 

} 



/• 

| FUNCTION .LOCAL void StatusBarDraw(hDC, Rect, Min. Max, Cur, hBrush) 

| DESCRIPTION Draw the percentage bar for the current value. 

| PARAMETERS HDC hDC • Specifies target DC. 

| LPRECT Rect • Specifies pointer to the rectangle. 

| int Min - Specifies 

| int Max • Specifies 

| int Cur - Specifies 

| HBRUSH hBrush - Specifies 

| RETURN None. 

*/ 

.LOCAL void StatusBarOraw(HDC hDC. LPRECT Rect, int Min, int Max. int Cur, HBRUSH 
hBrush) { 



H8RUSH hBrBad; 
HBRUSH hBrGood; 
HANDLE hPrv; 
int Maxp; 
int Minp; 

hBrBad = CreateSolidBrush(RGB(255 ( 0, 0)) ; /* Bad range. V 
hBrGood = CreateSolidBrush(RGB(0, 255, 0)) ; /• Good range. 7 

hPrv = SelectObject(hDC, hBrBad) ; 

Minp = StatusBarPer(Rect, Min); 

if (Min) 

{ 

Rectangle(hDC, Rect->left, Rect->top, Minp, Rect->bottom); 

} 

Maxp = StatusBarPer(Rect, Max); 

if (Max != 100) 

{ 

Rectangle(hDC, Maxp, Rect->top, Rect->right, Rect->bottom); 

} 

SeiectObject(hDC, hBrGood) ; 

Rectangle(hDC, Minp, Rect->top, Maxp, Rect-> bottom); 

SelectObject(hDC, hPrv); /* restore previous selected object. */ 
DeleteObject(hBrGood) ; 
DeleteObject(hBrBad ) ; 

/* 

** Draw the current bar. 
7 

hPrv = SelectObject(hDC, hBrush) ; 

Minp = Rect->top + ((Rect-> bottom - Rect->top) / 4); 
Maxp = Rect->top + (((Rect->bottom - Rect->top) * 3) / 4); 

Rectangle(hDC, Rect->left, Minp, StatusBarPer(Rect, Cur), Maxp); 
SelectObject(hDC, hPrv); r restore previous selected object. */ 



FUNCTION .LOCAL void StatusBars(hDC) 

DESCRIPTION Update the data changes to the status window bars. 

PARAMETERS HOC hDC - Specifies target DC. 

RETURN None. 



LOCAL void StatusBars(HDC hDC) 




{ 

RECT rc; 

HBRUSH hBrush; 

HANDLE hFont; 

COLORREF hOldBk; 

char szWork(PROMPT_LEN + 1]; 

if (! (UserGetFlagsO & PREF_Confid) && ! (UserGetFlagsO & PREFJ/olume)) 

return; 
if (Islconic(hwndStatus)) 

return; 

/* 

** Get the new font. 
V 

hFont = SelectObject(hDC, hFontCur) ; 

r 

" Get the location of the status bars. 

** From the client area rectangle get the rectangle for the first bar. 
7 

GetClientRect(hwndStatus, (LPRECT)&rc); 

Drawlcon(hDC, rc.right - GetSystemMetrics(SM_CX!CON) - 2, 2, bPause ? hicoMain 
hicoStat); 

rc.left = PROMPTJ.EN * cxStatusText ; 
rc.right -= GetSystemMetrics(SM.CXICON) + 4; 
rc.top = 2; 

rc. bottom = cyStatusText; 
/* 

** Always using this brush. 
V 

hBrush = CreateSolidBrush(RGB (0, 0, 255)) ; /* Current val */ 
hOldBk = SetBkColor(hDC, GetSysColor(COLOR_BTNFACE)); 



if (UserGetFlagsO & PREF Confid) 
{ 

r 

** The confidence display bar. 
7 

LoadString(VChlnst ( IDS.CONFID, (LPSTR)szWork, PROMPT_LEN); 
TextOut(hDC, cxStatusText, rc.top, szWork, Istrten(szWork)); 

StatusBarOraw(hDC, &rc, UserGetConfidenceO, 100, 
vrState.confidence, hBrush); 

r 

** Move the rectangle down. 

7 

rc.top += cyStatusText + 4; 
rc. bottom += cyStatusText + 4; 

} 




if (UserGetFlagsO 4 PREF Volume) 
{ 

/* 

** The volume display bar. 
*/ 

LoadString(VChlnst. IDS_VOLUME, (LPSTR)szWork, PROMPTJ.EN): 
TextOut(hDC, cxStatusText. rc.top. szWork, Istrlen(szWork)); 

Status8arOraw(hDC, &rc, iVolumeMin, iVolumeMax, 
vrState. amplitude. hBrush); 

/* 

** Move the rectangle down. 
•/ 

rc.top += cyStatusText ♦ 4; 
rc. bottom += cyStatusText ♦ 4; 

} 

/* 

** Put the old font back. 
*/ 

SelectObject(hDC, hFont); 
/• 

** Free brush. 
*/ 

DeleteObject(hBrush) ; 
SetBkColor(hDC, hOldBk); 

} 



| FUNCTION _LOCAL void StatusChange(void) 
| DESCRIPTION Update status information. 
| PARAMETERS None. 
| RETURN None. 

V 

LOCAL void StatusChange(void) 

{ 

HDC hDC; 

char szWork[MAXSTRING + 1]; 

if (vrState.confidence >= UserGetConfidenceO) 
{ 

StringLoadParam(szWork. IDS NEW, (LPSTR)vrState.word[0]); 

} 

else 
{ 



LoadString(VChlnst, IDS QUERY, szWork. MAXSTRING); 

} 

SetWindowText(hwndStatus, szWork); 
hOC = GetOC(hwndStatus); 
StatusBars(hDC); 
ReleaseOC(hwndStatus, hOC); 



/* 

| FUNCTION _LOCAL UINT PhraseFind(szStr) 

j DESCRIPTION Find phrase in phrase listbox 

j PARAMETERS PSTR szStr - Specifies pointer to the phrase. 

| RETURN Index in the listbox or LB.ERR. 

•/ 

.LOCAL UINT PhraseFind(PSTR szStr) 
{ 

UINT wldx; 
LONG IRet; 

char szWord[MAX_SYMBOL_LENGTH]; 

wldx = 0; 
while (1) 
{ 

IRet = SendMessage(hwndList, LB GETTEXT, wldx, (LONG)(LPSTR)szWord); 
if (IRet == LB ERR || IRet == NULL) 

return((UINT)LB_ERR); 
if (! lstrcmpi(szStr, szWord)) 

return(wldx); 
wldx ++; 

} 



| FUNCTION .LOCAL UINT CloseCallFind(szStr) 

| DESCRIPTION Check phrase as a close call number. 

| PARAMETERS PSTR szStr - Specifies pointer to the phrase. 

| RETURN Index in the listbox or LB_ERR. 

•/ 

LOCAL UINT CloseCallFind(PSTR szStr) 

{ 

UINT wldx; 
LONG IRet; 



UINT wordNum; 



for (wldx = 0; wldx < wCloseCallNumber; wldx +♦) 
{ 

wordNum = wldx + 'V; 

if (! lstrcmpi(szStr, (char ') &wordNum)) 

{ 

iRet = SendMessage(hwndList, LB GETITEMDATA, wldx, NULL); 
if (IRet == LB_ERR || IRet == NULL) 

continue; 
return(wldx); 

} 

} 

retum((UINT)LB ERR); 

} 

/• 

| FUNCTION J.OCAL void PhraseListMove(szStr) 

| DESCRIPTION Move phrase to the close call list. 

| PARAMETERS PSTR szStr - Specifies pointer to the phrase. 

| RETURN None. 

'/ 

_LOCAL void PhraseListMove(PSTR szStr) 

{ 

int wldx; 

WORD wordNum; 

char szWord(MAX_SYMBOL_LENGTH]; 
LONG Data; 

if (Istrten (szStr) == 0) 
return; 

wldx = PhraseFind(szStr); 
if (wldx == - 1) 
return; 

SendMessage(hwndList, LB GETTEXT, wldx, (LONG)(LPSTR)szWord); 
iData = SendMessage(hwndList, LB.GETITEMDATA, wldx. NULL); 
SendMessage(hwndList, LB.DELETESTRING, wldx, NULL); 
SendMessage(hwndList, LBJNSERTSTRING, wCloseCallNumber, (DWORD)(LPSTR) 
szWord); 

SendMessage(hwndList, LB.SETITEMDATA, wCloseCallNumber, IData); 

wCloseCallNumber ++; 

wordNum = wCloseCallNumber ♦ 0'; 

#.fdef DEBUG.DLG 

if (DebugFlag & DEBUG.Recog) 

#endif 

SpeechEnable((LPSTR) iwordNum); 



} 



I FUNCTION _LOCAL int PhraseListlnc(void) 

I DESCRIPTION Return close call list increment 

| PARAMETERS None. 

I RETURN Close call list increment 

V 

J.OCAL int PhraseListlnc(void) 
{ 

RECT Rect; 
int UstSize; 
int CloseCallSize; 

CloseCallSize = wCloseCallNumber * (cyStatusText + 1); 
GetClientRect(hwndStatus f (LPRECT) &Rect); 
ListSize = Rect. bottom • iStatusSizeMin; 
if (ListSize < 0) 
{ 

ListSize = 0; 

} 

return((ListSize >= CloseCallSize) ? 0 : CloseCallSize - ListSize); 

} 

| FUNCTION BOOL PhraseListAdd(szStr, ContextEntry) 

| DESCRIPTION Add phrase to the phrase list. 

| PARAMETERS PSTR szStr ■ Specifies pointer to the phrase. 
| int ContextEntry - Specifies index in the context list. 

| RETURN TRUE if success. 

7 

BOOL PhraseListAdd(char * szStr, int ContextEntry) 
{ 

UINT wldx; 

BOOL bWord = FALSE; 

if (szStr == NULL) 
{ 

retum(TRUE); 

} 

if (ContextEntry ==-1) 
{ 

r 

** Has no context link so look for one. 
*/ 

if (PhraseFind(szStr) != -1) retum(TRUE); 



} 

#ifdef DEBUG_DLG 

if (DebugFlag & DEBUG_Recog) 

#endif 

bWord = SpeechEnable(szStr); 

/* 

** Now add it to the list. 
*/ 

wldx = (UINT) SendMessage(hwndList. LB_ADDSTRING, 0, (DWORD)(LPSTR) 

if (wldx == (UINT) LB ERR) 

{ 

retum(FALSE); 

} 

SendMessage(hwndList, LB SETITEMDATA, wldx, MAKELONG(ContextEntry 
bWord)); 

return(TRUE); 

} 

/*- 

I FUNCTION _LOCAL void PhraseListSetup(void) 

I DESCRIPTION Get the current set of words and give them to the recognizer. 
| PARAMETERS None. 
| RETURN None. 
7 

_LOCAL void PhraseListSetup(void) 

{ 

UINT wldx; 
RECT rc; 

if (! hwndList) 
return; 

SendMessage(hwndList, WM SETREDRAW, FALSE. 0); 
SendMessage(hwndList. LB_RESETCONTENT, 0, 0); 

#ifdef DEBUG.OLG 

if (DebugFlag & DEBUG Recog) 

#endif 

SpeechDisableAIIO; I* Disable all words. */ 

ContextListAddO: r Get context first. 7 

if (wCloseCalllnc) 
{ 

r 

** Resize window to normal 
•/ 

GetWindowRect(hwndStatus, Arc); 



rc.bottom -= wCloseCalllnc; 
wCloseCalllnc = 0; 
MoveWindow( 

hwndStatus, 

re. left, 

rc.top, 

rc. right - rc.left, 
rc.bottom - rc.top, 
TRUE); 



if (bCloseCallWas) 
{ 

r 

** Include CloseCall information 

7 

wCloseCallNumber = 0; 

for (wldx = 0; wldx < vrState.n Words; PhraseListMove(vrState.word[wldx ++])) 

if (! Islconic(hwndStatus)) 
{ 

r 

** Should we resize PhraseList ? 

7 

wCloseCalllnc = PhraselistlncQ; 
if (wCloseCalllnc) { 

GetWindowRect(hwndStatus, &rc); 
MoveWindow( 

hwndStatus, 
rc.left, 
rc.top, 

rc.right - rc.left, 

rc.bottom - rc.top + wCloseCalllnc, 
TRUE); 

} 

} 

} 

SendMessage(hwndList, WM.SETREDRAW, TRUE, 0); 



FUNCTION .LOCAL void PhraseDrawltem(LPDRAWITEMSTRUCT Ipd) 
DESCRIPTION Draw item routine for the status item. 

PARAMETERS LPDRAWITEMSTRUCT Ipd - Specifies pointer to the DRAW1TEMSTUCT. 
RETURN None. 



LOCAL void PhraseDrawltem(LPDRAWITEMSTRUCT Ipd) 

{ 



HBRUSH hBrush; 
int iBkColor 
int iTxColor, 
char szWord[2 * MAX_SYMBOL_LENGTH + 50J; 

if (lpd->itemlD ==-1) 
return; 

if ((lpd->itemState & ODS SELECTED) && (lpd->itemState & ODS_FOCUS)) 
{ 

iBkColor = COLOR HIGHLIGHT; 
iTxColor = COLOR_HIGHLIGHTTEXT; 

} 

else 

{ 

iBkColor = COLOR WINDOW; 
iTxColor = COLOR WINDOWTEXT; 

} 

SetTextColor(lpd->hDC, GetSysColor(iTxColor)); 
SetBkColor( lpd->hDC, GetSysColor(iBkColor)); 

hBrush = CreateSolidBrush(GetSysColor(iBkColor)); 
FillRect(lpd->hDC, (LPRECT)A(lpd->rcltem), hBrush); 
DeleteObject(hBrush); 

/* 

** Now draw the text. 
V 

SendMessage(hwndList, LB_GETTEXT, lpd->itemlD, (LONG)(LPSTR)szWord); 
if (bCloseCallWas && lpd->itemlD < wCloseCallNumber) 

{ 

PaintBitmap( 

lpd->hDC, lpd->rcltem.left, lpd->rcltem.top, 
BMP SIZE, BMP_SIZE, 

hbmpAnd, hbmpPaint, lpd->itemlD * BMP_SIZE, 0); 
TextOut(lpd->hDC, lpd->rcltem.left + BMP_SIZE, lpd->rcltern.top, szWord, 
Istrten(szWord)); 
} 

else 
{ 

if (!HIWORD(SendMessage(hwndList, LB GETITEMDATA, lpd->itemlD, OL))) 
{ 

SetTextColor(lpd->hDC, GetSysColor(COLOR_GRAYTEXT)); 

} 

#ifdef DEBUG DLG 

if (DebugFlag & DEBUG ContFull) 
{ 

TabbedTextOut(lpd->hDC. Ipd->rcltem.left, lpd->rcltem.top, 

szWord, Istrlen(szWord), 2, ContextTabs. Ipd->rcltem.left); 

} 

else 

#endif 

TextOut(lpd->hDC, lpd->rcltem.left, lpd->rcltem.top, szWord, Istrlen (szWord)); 




} 



} 

I FUNCTION _LOCAL void PhraseExec(wldx) 

I DESCRIPTION Execute the links associated with the phrase. 

I PARAMETERS UINT wldx - Specifies index of the phrase in the listbox. 

I RETURN None. 

7 

.LOCAL void PhraseExec(UINT wldx) 
{ 

if (wldx != (UINT) LB ERR) 
{ 

StatusChangeO; 
/• 

** Activate the context link macro. If it has one. 
7 

ContextListSelect(LOWORD(SendMessage(hwndList, LB GETITEMDATA 

wldx, NULL))); 
} 

} 

/•- 

I FUNCTION void CALLBACK PhraseTimerProc(hwnd, msg, idTimer, dwTime) 

j DESCRIPTION An application-defined callback function that 
I processes WM_TIMER messages. 

I Look for context change 

j PARAMETERS HWND hwnd - Identifies the window associated with the timer. 

I UINT msg - Specifies the WMJTIMER message. 

j UINT idTimer • Specifies the timer's identifier. 

j DWORD dwTime - Specifies the current system time. 

| RETURN None. 

7 

void CALLBACK PhraseTimerProc(HWND hwnd, UINT wMsg, UINT idTimer, DWORD dwTime) 
{ 

static BOOL Active = FALSE; 

if (lActive) 
{ 

Active = TRUE; 

if (ContextCheck(FALSE)) 

{ 

bCloseCallWas = FALSE; 



SpeechEraseO; 

PhraselistSetupO; /• rebuild the current vocab list */ 

} 

Active = FALSE; 

} 

} 

/* 

I 

| FUNCTION _LOCAL void StartTimer(void) 

I 

| DESCRIPTION Start timer to look to the context change. 

I 

| PARAMETERS None. 

I 

I RETURN None. 



_LOCAL void StartTimer(void) 
{ 

PhraseTimer = SetTimer(NULL, IDT_PHRASE, 500. (TIMERPROC)PhraseTimerProc); 
if (! PhraseTimer) 

Error(ERRNoTimers); 

} 

/• 

| FUNCTION J.OCAL void StopTimer(void) 

| DESCRIPTION Stop(kill) timer. 

| PARAMETERS None. 

| RETURN None. 

*/ 

_LOCAL void StopTimer(void) 
{ 

KillTimer(NULL, PhraseTimer); 

} 

/* 

| FUNCTION void StatusSetPref(HWND hwnd) 

| DESCRIPTION Set the windows preferences. 

j Find the minimum size for the status window. 

j number of pixel height units to the start of the vocab box. 

| PARAMETERS HWND hwnd - Specifies handle to the status window. 

| RETURN None. 

•/ 

void StatusSetPref(HWND hwnd) 

{ 



int sfNew = UserGetFlagsO; 
RECT rc; 
int ylnc = 0; 



iStatusSizeMin = 0; 
if (sfNew & PREF_Volume) 

iStatusSizeMin += 4 + cyStatusText; 
if (sfNew & PREF_Confid) 

iStatusSizeMin += 4 + cyStatusText; 
iStatusSizeMin = max(iStatusSizeMin, 6 + GetSystemMetrics(SM 
GetClientRect(hwnd, &rc); 
if (rc.bottom < iStatusSizeMin) 

ylnc = iStatusSizeMin - rc.bottom; 
GetWindowRect(hwnd, Arc); 
MoveWindow( 

hwnd, 

rc.left, 

rc.top, 

rc.right • rc.left, 
rc.bottom - rc.top + ylnc, 
TRUE); 

SendMessage(hwnd, WM_SIZE. 0, OL); 

lnvalidateRect(hwnd t NULL, TRUE) ; r rebuild if resized or not V 

ContextCheck(TRUE); 

PhraseListSetupO; /* rebuild the current vocab list. */ 

} 

r 

i FUNCTION _LOCAL void SelectOurFontO 
| DESCRIPTION Select font for phrase listbox. 
| PARAMETERS None. 
| RETURN None. 
*/ 

J.OCAL void SelectOurFontO 

{ 

HDC hDC; 
TEXTMETRIC tm; 
HFONT hFontNew; 

hFontNew = UserGetFontO; 

hDC = CreatelC((LPSTR)"DISPLAY", NULL, NULL, NULL) ; 
SelectObject(hDC, hFontNew) ; 
GetTextMetrics(hDC ? &tm); 




SendMessage(hwndList t WM.SETFONT, hFontNew, OL); 





SendMessage(hwndList, LB_SETITEMHEIGHT, 0, MAKELONG(max(tm tmHeiqht 
BMP_SIZE), 0)); y ' 

cxStatusText = tm.tmAveCharWidth; 
cyStatusText = tm.tmHeight; 
if (hFontCur != NULL) 

DeleteObject(hFontCur); 
hFontCur = hFontNew; 
DeleteDC(hDC); 

} 



FUNCTION BOOL CALLBACK Status WndProc(hwnd, wMsg, wParam, IParam) 

DESCRIPTION Window Proc VoiceStatus class. 
The form of the status window is follows: 
Title bar = System menu icon, last word, w/ current 
Confidence 
Volume 

Current options list box. 



PARAMETERS HWND hwnd - Specifies the handle of the window 
UINT wMsg - Specifies the message 
WORD wParam - Specifies 16 bits of additional 

message-dependent information 
LONG IParam - Specifies 16 bits of additional 

message-dependent information 



| RETURN Depend upon the message. 

7 

long FAR PASCAL StatusWndProc(HWND hwnd, UINT wMsg, WORD wParam, LONG IParam) 

static WORD wMenuCmd = NULL; 
static DWORD dwMenuBits = NULL; 
static BOOL bRecogReady = FALSE; 



switch (wMsg) 
{ 

case WM CREATE: 
{ 

r Install System 
7 

LPCREATESTRUCT Ipcs = (LPCREATESTRUCT) IParam; 



r Create the list of available words for the user. 
7 

hwndList = CreateWindow( 
"LISTBOX", 
NULL, 

WS CHILD | WS_VISIBLE | WS_BORDER | 
WS_HSCROLL | LBS.NOINTEGRALHEIGHT | 
LBS NOTIFY | LBS.OWNERDRAWFIXED | 
LBS.HASSTRINGS | LBS.WANTKEYBOARDINPUT, 
iStatusSizeMin, 




0, 

lpcs->cx - iStatusSizeMin, 
lpcs->cy, 

hwnd, /• parent. 7 

IDLIST.PHRASE. 

VChlnsT, 

(LPSTR) NULL); 
if (hwndList == NULL) 
{ 

retum(-1); 

} 

/* Hook message queue 

V 

Hooklnstall(TRUE); 

/* Start DOE with Program Manager 
•/ 

ShellDdeinit(&VCTalk); 

/* Install help hook (F1 in dialogs and menu) 
•/ 

HelpHooklnitO; 

/* The window gets created, so do the one time stuff. 

7 

hicoMain = Loadlcon(VChlnst, MAKEINTRESOURCE(ICO_MAIN)); 
hicoStat = Loadlcon(VChlnst, MAKEINTRESOURCE(ICO_STAT)); 
hbmpPaint = LoadBitmap(VChlnst, 
MAKEINTRESOURCE(BMP_CLCALL)); 

hbmpAnd = CreateAndBitmap(hbmpPaint); 

#ifdef DEBUG_DLG 

/* Update system menu 
•/ 

{ 

char szWork[MAXSTRING ♦ 1J; 

HMENU hMenu = GetSy stem Menu (hwnd, FALSE);; 

AppendMenu(hMenu, MP SEPARATOR. 0. 0); 
LoadString(VChlnst, IDSjOEBUG, (LPSTR)szWork, 

MAXSTRING); 

AppendMenu(hMenu, MF_STRING, IDM_SYSDEBUG, 

(LPSTR)szWork); 

DrawMenuBar(hwnd); 

} 

#endif 

/* Set prefs 

V 

SelectOurFontO; 
StatusSetPref (hwnd) ; 

/* Status is owner of the speech channal 
*/ 

Speech Owner(hwnd) ; 



/* Set the initial values to the prase list. 
•/ 

PhraseListSetupO: 

bRecogReady = TRUE; 

/* Do not put break here. 

** We change user from void to current 

*/ 

} 

caseVCM USERCHANGED: 
{ 

RECT re; 
HCURSOR hcur 
HWND hwndEdit; 

hcur = SetCursor(LoadCursor(NULL, IDCJ/VAIT)); 

/* Set Status placement 
•/ 

UserGetWinRect(szStatusClass, &rc); 
MoveWindow( 

hwnd, 

rc.left, 

rc.top, 

rc. right - rc.left, 

rc.bottom - rc.top, 

TRUE); 
StopTimerO; 
bRecogReady = FALSE; 

/* Load voice file 
V 

#ifdef DEBUGJDLG 

if (DebugFlag & DEBUG Recog) 

#endif 

SpeechUserChangeO; 

/* Load Language 
7 

hwndEdit = FindWindow(szFrameClass, NULL); 

if (hwndEdit != NULL) 

{ 

/* Load from the editor 
7 

ContextNewLang((LPLANG)SendMessage(hwndEdit, 

lEditChangeMsg, 0, OL)); 

} 

else 
{ 

r Load from the file 
*/ 

ContextNewLang(NULL); 

} 




bRecogReady = TRUE; 
Start TimerO; 
SetCursor(hcur); 
PhraseListSetupO; 
break; 



case WMJVIENUSELECT: 

/* Keep menu selection for help 

7 

dwMenuBits=IParam; 
wMenuCmd=wParam; 
goto defmsg; 

caseVCM HELP: 

if (!(LOWORD(dwMenuBits) & MF.POPUP)) 

{ 

if (!(LOWORD(dwMenuBits) & MF SYSMENU)) 
{ 

/* Menu help 
•/ 

Help(hwnd, HELP VCMenuPrefs ♦ wMenuCmd - 

MENU STATUS); 

} 

else 
{ 

/* System menu help 
*/ 

Help(hwnd, HELP SysMenu); 

} 

} 

else 
{ 

/* General help 
*/ 

Help(hwnd, HELP Status); 

} 

break; 

caseVCM SPEECH; 
{ 

r 

** Speech available 
*/ 

UINT wldx; 
UINT wUtt; 

if (bRecogReady && IbPause) 
{ 

bRecogReady = FALSE; 
StopTimerO; 

wUtt = SpeechRecog(&vrState); 
/* Check Close Call list first. 



# # 

•/ 

if (wUtt != 0) 
{ 

if (vrState.confidence >= UserGetConfidenceO) { 
if (bCloseCallWas) { 

wldx = CloseCallFind(vrState.word(0]); 
if (wldx != (UINT)LB_ERR) { 

SendMessage(hwndList, 

LB_GETTEXT, wldx, (LONG)(LPSTR)(vrState.word(0])); 

if ( UserGetFlagsO & 

PREF.Adapt) { 

SpeechAdapt(vrState.w 

ord(O), wUttCloseCall); 

} 

} 

else { 

wldx = 

PhraseFind(vrState.word(OJ); 

} 

} 

else { 

wldx = PhraseFind(vrState.word[0]); 

} 

bCloseCallWas = FALSE; 
SpeechEraseO; 

r A word was recognized correctly. 
*/ 

PhraseExec(wldx); 

} 

else { 

/* Setup Close Call list 
V 

bCloseCallWas = TRUE; 
wUttCloseCall = wUtt; 
StatusChangeO; 
PhraseListSetupO; 

} 

} 

StartTimerO; 
bRecogReady = TRUE; 

} 

break; 

} 

case VCM TRAIN: 
{ 

r Word was trained 
•/ 

UINT wldx; 
LONG (Data: 
RECT rc; 

wldx = PhraseFind((PSTR)IParam); 
if (wldx != (UINT)LB_ERR) { 

IData = SendMessage(hwndList. LB.GETITEMDATA, wldx. OL); 



• 



if (!HIWORD(IData)) { 

SendMessage(hwndList, LB_SETITEMDATA, wldx, 



SendMessage(hwndList, LB_GETITEMRECT, wldx, 



} 

break; 

} 

caseWM PAINT: 
{ 

/* A repaint instruction has been given. 

7 

HDC hDC; 
PAINTSTRUCT ps; 
HICON hlcon; 

hDC = BeginPaint(hwndStatus, (LPPAINTSTRUCT)&ps); 
if (Islconic(hwndStatus)) 

{ 

/* Draw iconic window 
7 

hlcon = (bPause) ? hicoMain : hicoStat; 
Orawlcon(hDC, 0, 0, hlcon); 

} 

else 

{ 

/* Create the volume and confidence boxes. 



StatusBars(hDC); 

} 

EndPaint(hwndStatus, (LPPAINTSTRUCT)&ps); 
break; 



caseWM SIZE: 
{ 

/* Move the phrase list. 
7 

RECT rc; 

GetClientRect(hwnd, Arc); 
MoveWindow( 



hwndList, 
rc.left, 

rc.top + iStatusSizeMin, 
rc. right - rc.left + 1, 

rc bottom • rc.top • iStatusSizeMin + 1 , 



MAKELONG(LOWORD(IData). TRUE)); 



(LONG)(LPRECT)&rc); 



lnvalidateRect(hwndList, 4rc. TRUE); 



7 



TRUE); 



break; 



case WM.GETMINMAXINFO: 



MINMAXINFO FAR * Ipmmi = (MINMAXINFO FAR •) IParanv 
RECT re; 

memset(&rc, 0, sizeof(rc)); 
rc. bottom = iStatusSizeMin; 

AdjustWindowRect(&rc, WS_OVERLAPPEDWiNDOW, TRUE); 

lpmmi->ptMinTrackSize.x = MAX_SYMBOL_LENGTH * cxStatusText; 
lpmmi->ptMinTrackSize.y = rc.bottom - rc.top ♦ wCioseCalllnc: 
break; 



break; 

case WMJ2UERYDRAGICON: 

/* A repaint instruction has been given. 
•/ 

retum(bPause ? hicoMain : hicoStat); 

case WM_DRAWITEM: 

/* The system listbox wants us to draw the item. 
DRAWITEMSTRUCT 

7 

PhraseDrawltem((LPDRAWITEMSTRUCT) IParam); 
break; 



#ifdef DEBUG OLG 

case WM_SYSCOMMAND: 

if ((wParam & OxFFFO) == IDM SYSDEBUG) 
{ 

/* Bring up the Debug dialog box. 

7 



DialogBox(VChlnst. MAKEINTRESOURCE(DLG.DEBUG), 



case 



WM SETFOCUS: 



/* We just got the focus. 
7 

SetFocus(hwndUst); 



r Give it to the list box. 7 



hwnd, DebugDIgProc); 



r Rebuild phrase list 
7 

PhraseUstSetupQ; 



else 
{ 



goto defmsg; 



break; 



#endif 



case WM.COMMAND: 
switch (wParam) 
{ 



case IDM.PREFS: 

r Bring up the User Prefereces dialog box. 



• m 

v 

if(UserPref(hwnd)) 

{ 

SeledOurfontO; 

} 

Stat usSet Pre f(hwnd); 
break; 

case IDM.TRAIN: 

r Bring up the Vocabulary Training dialog box. 
V 

SendMessage(hwnd, WM COMMAND, 
IDLIST_PHRASE. MAKELONG(0, LBN.DBLCLK)); 

break; 

case IOM PAUSE: 
{ 

r Pause on/off. 

v 

char szTitle[MAXSTRING * 1]; 
bPause = ! bPause; 

CheckMenultem(GetMenu(hwnd), IOM PAUSE, 

MF BYCOMMAND | (bPause ? MF.CHECKED 

: MF UNCHECKED)); 

LoadString(VChlnst, IDS.TITLE, (LPSTR)szTitle. 

sizeof(szTitle)); 

SetWindowText(hwnd, (LPSTR)szTitle); 
lnvalidateRect(hwnd, NULL. TRUE) ; 
break; 

} 

case IDM EDIT: 
{ 

r 

** Bring up the Language Editor 
•/ 

char szVeFile[MAXFILENAME + 1]; 

IniGetVeFile(szVeFile); 
WinExec(szVeFile, SW_SHOW); 
break; 

} 

case IDM.EXIT: 
I* Exit now 
•/ 

SendMessage(hwnd, WM.CLOSE. 0, 0L); 
break; 

case IDM.HELPCONTENT: 
I* Bring up the Help 
•/ 

Help(hwnd, HELP.Status); 
break; 




case !DM_HELPSEARCH: 

/* Bring up the Help Search 
*/ 

Help(hwnd. HELP_Search); 
break; 

case IDM_HELPONHELP: 

/* Bring up the HelpOnHelp 
*/ 

Help(hwnd. HELP_OnHelp); 
break; 

case IDM_ABOUT: 

/* Bring up the About., dialog box. 
•/ 

About(hwnd); 
break; 

case IDLIST PHRASE: 

switch (HIWORD(IParam)) { 
case LBN DBLCLK: 



#ifdef DEBUG DLG 



(UINT)SendMessage(hwndList, LBJ3ETCURSEL, 0, 0); 

LB.GETTEXT, wldx, (LONG)(LPSTR)(vrState.word[0])); 
DEBUG_ContFull) 

information 

vrState.wordfO]; *Ptr; Ptr++) 



'\0'; 



if (DebugFlag & DEBUG_Force) { 
/* Execute command 
•/ 

char * Ptr; 
UINTwldx = 

vrState.confidence = 100; 
vrState. amplitude = 0; 
SendMessage(hwndList, 

if (DebugFlag & 



{ 



/* Skip debug 
•/ 

for (Ptr = 
{ 



if (• ptr == -M-) 
{ 

* Ptr = 
break; 



} 



} 

Phrase Exec(wldx); 
break; 



#endif 



f* Train command 
•/ 



# » 

TrainExec(TRUE, 
(UINT)SendMessage(hwndList, LB_GETCURSEL, 0, 0), hwndList); 

break; 
case LBN_SETFOCUS: 

/• We just got focus, clear previous 

inputs. 

*/ 

break; 

default : 

goto defmsg; 

} 

break; 

default: 

goto defmsg; 

} 

break; 

case WM.QUERYENDSESSION: 

{ 

Wl NDO WPLACEMENT wndpl; 
HWNO hwndEdit; 

if (wParam == 2) 

{ 

r We donl quit, just hange user 
*/ 

hwndEdit = FindWindow(szFrameClass, NULL); 

if (hwndEdit !■ NULL) 

{ 

Error(ERREdrtExist); 

ShowWindow(hwndEdit, SW.SHOWNORMAL); 

SetFocus(hwndEdit) ; 

break; 

} 

} 

r Save users settings 

V 

wndpl. length = sizeof(wndpi); 
GetWindowPlacement(hwnd, &wndpl); 
UserSetWinRect(szStatusClass, &(wndpl.rcNormalPosition)); 
goto defmsg; 

> 

case WMCLOSE: 

I* Ask permision before quit 
•/ 

if (CallTaskWindowsfTRUE. WM QUERYENOSESSION, TRUE. 0L)) 
{ 

CallTaskWindows(FALSE, WM.OESTROY, 0, 0L); 

} 

break; 
case WM_DESTROY : 



# 



m 



r Free resores 

v 

HCURSOR hcur 

hcur ' SetCursor(LoadCursor(NUlL, IDCJ/VAIT)); 

StopTimerO; 

Destroylcon(hicoStat); 

Destroylcon(hicoMain); 

DeleteObject(hbmpPaint); 

DeleteObject(hbmpAnd); 

DeleteObject(hFontCur); 

/* Free speech system 

7 



if (DebugFlag & DEBUG.Recog) 



SpeechFreeO; 

/* Unhook message queue 

7 

Hooklnstall(FALSE); 
HookFreeJoumalO; 

/* Close help if was opened 

V 

Help(hwnd, HELP.Quit); 

r Stop DDE 

7 

ShellDdeExit(&VCTalk); 

/* Unhook help hook 
7 

HelpHookExitO; 

/* Save the user file. 
7 

UserExitO; 
SetCursor(hcur); 

r Kill the task and other windows. 
7 

PostQuitMessage(O); 
break; 



} 

default: 

if (wMsg == iEditChangeMsg) 

{ 



r Changes in Editor saved 
~ We need to update language 

7 

HCURSOR hcun 



#ifdef DEBUG DLG 



#endif 



# 



hcur = SetCursor(LoadCursor(NULL, IDC WAIT)); 

StopTimerO; 

bRecogReady = FALSE; 

/* Load Language 

7 

ContextNewLang((LPLANG)IParam); 

bRecogReady = TRUE; 

Start TimerO; 

SetCursor(hcur); 

break; 



defmsg: 

return DefWindowProc(hwnd, wMsg, wParam. IParam); 



| FUNCTION BOOL Statuslnit(BOOL bNew) 
| DESCRIPTION 
| PARAMETERS 
| RETURN 

7 

BOOL Statuslnit(BOOL bNew) 
{ 

WNDCLASS wc; 

char szTitle[MAXSTRING + 1]; 

RECT rc; 

HWND hwnd; 

if (bNew) 
{ 

UserinitO; 



/• To reload file 
•/ 

iEditChangeMsg = RegisterWindowMessage(szFrameClass); 

r Register the window class. 
•/ 

memset(&wc, 0, sizeof(wc)); /* zero structure to start. 7 

wcstyle = CS.DBLCLKS | CS_HREDRAW | CSJ/REDRAW ; 
wc.lpfnWndProc = (WNDPROC)StatusWndProc; 
wc.hlnstance = VChlnst; r task owner. 7 

wchCursor = LoadCursor(NULL, IDC ARROW) ; 



return (NULL); 



/*■ 



wc.hbrBackground = COLOR.BTNFACE + 1; 
' wc.lpszClassName = (LPSTR) szStatusClass; 
wclpszMenuName = MAKEINTRESOURCE(MENU_STATUS); 

if (! RegisterClass(&wc)) 
retum(FALSE); 

hAccTableStatus = LoadAccelerators(VChlnst, 
MAKEINTRES0URCE(AT8L_STATUS)); 



/* Create Status Window 

V 

UserGetWinRect(szStatusClass, &rc); 

LoadString(VChlnst, IDS_TITLE. (LPSTR)szTitle. sizeof(szTitle) - 1); 

hwndStatus = CreateWindowEx( 
WS_EX_TOPMOST, 
szStatusClass, 
(LPSTR)szTitle, 

WS_OVERLAPPEDWINDOW & (-WS.MAXIMIZEBOX). 

rc.left, 

rc.top, 

rc.right - rc.left, 

rc. bottom • rc.top, 

NULL, 

NULL, 

VChlnst, 

(LPSTR) NULL); 

if (! hwndStatus) 

return(FALSE); 

/* Send timer message to update context. 

** every 1/2 of a second or so. 

•/ 

StartTimerO; 

ShowWindow(hwndStatus, SW.SHOWNORMAL); 

/* Install recognition system 
*/ 

tffdef OEBU6.DLG 

if (OebugFlag & OEBUG.Recog) 

#endif 

SpeechlnitO; ' 
PhraseListSetupO; 

} 

else 
{ 

/* Only one instanse of Voice Control should be present 
•/ 

hwnd = FindWindow(szStatusClass, NULL); 

if (hwnd) 

{ 

r This should always be true !? 



ShowWindow(hwnd, SW_SHOWNORMAL); 

/* Flash it to indicate location. 
7 

SetFocus(hwnd); 

} 

} 

retum(TRUE); 

} 

/* 

| FUNCTION BOOL StatusCheckMsg(MSG * pMsg) 
j DESCRIPTION Message translation. 

| PARAMETERS MSG * pMsg - Specifies pointer to the incoming message, 
j RETURN TRUE if processed(message belong to the status). 



•/ 

BOOL StatusCheckMsg(MSG * pMsg) 
{ 

if (hwndStatus !- NULL && GetFocusO == hwndList && 

TranslateAccelerator(hwndStatus, hAccTableStatus, pMsg)) 
retumfTRUE); 

return(FALSE); 

} 

/• . 

| FUNCTION HWNO StatusGetWindow(void) 

j DESCRIPTION Return status window handle. 

| PARAMETERS None. 

| RETURN Window handle. 

7 

HWND StatusGetWindow(void) 
{ 

retum(hwndStatus); 

} 



